Question

Срочно нужна помощь с задачами по массивам. Паскаль 1)Вы создаете массив из 100 элементов, содержащий 100 чисел (вводится случайные числа). Вывести массив, содержащий только положительные четные числа из этого диапазона. 2)Даны целые числа a1, a2, … a50. (массив заполняется случайными числами). Найти сумму тех элементов массива, которые кратны 3.

Answer 1

В обоих случаях вы не указали какие числа, я использовал промежуток от -64000 до 64000
1)var a,b:array[1..101] of longint;i,n,k:integer;beginfor i:=1 to 100 do a[i]:=random(128000)-64000;for i:=1 to 100 do beginif a[i]>0 then begin b[i]:=a[i];inc(k);end;if a[i]<0 then begin while a[i]>0 doa[i]:=a[i+1];end;end;for i:=1 to k doif b[i]<>0 thenwriteln(b[i]);end.
2)var a:array[1..50] of integer;i,k:integer;beginfor i:=1 to 50 do a[i]:=random(64000)+1;//for i:=1 to 50 do if a[i] mod 3 =0 then writeln(a[i]); если хотите посмотреть на эти числа убрать //for i:=1 to 50 do if a[i] mod 3 =0 then k:=k+a[i];write(k);end.

Answer 2

Конечно, я могу помочь вам с задачами по массивам. Вот решения задач на языке Паскаль:

1. Создание массива из 100 элементов и вывод положительных четных чисел:

pascalCopy code
program PositiveEvenNumbers;

var
  arr: array[1..100] of Integer;
  i, count: Integer;
  positiveEvenArr: array[1..100] of Integer;

begin
  count := 0;

  // Заполняем массив случайными числами
  Randomize;
  for i := 1 to 100 do
    arr[i] := Random(201) - 100;  // Генерируем случайное число от -100 до 100

  // Находим положительные четные числа и добавляем их в новый массив
  for i := 1 to 100 do
  begin
    if (arr[i] > 0) and (arr[i] mod 2 = 0) then
    begin
      count := count + 1;
      positiveEvenArr[count] := arr[i];
    end;
  end;

  // Выводим массив положительных четных чисел
  for i := 1 to count do
    WriteLn(positiveEvenArr[i]);

  ReadLn;
end.

2. Нахождение суммы элементов массива, кратных 3:

pascalCopy code
program SumMultiplesOfThree;

var
  arr: array[1..50] of Integer;
  i, sum: Integer;

begin
  sum := 0;

  // Заполняем массив случайными числами
  Randomize;
  for i := 1 to 50 do
    arr[i] := Random(101);  // Генерируем случайное число от 0 до 100

  // Находим сумму элементов массива, кратных 3
  for i := 1 to 50 do
  begin
    if arr[i] mod 3 = 0 then
      sum := sum + arr[i];
  end;

  WriteLn('Сумма элементов массива, кратных 3:', sum);

  ReadLn;
end.

Оба этих примера используют генерацию случайных чисел с помощью функции Randomize и Random, которые позволяют создавать случайные числа в заданном диапазоне. После выполнения каждой программы будет отображен результат в консоли.