Question

Решите 2 задачи по информатике 9 класс по принципу Pascal 1.Дан одномерный целочисленный массив,состоящий из 20 элементов(использовать рандомайзер).Проверить,есть ли в этом массиве нечётные элементы.2.Дан одномерный целочисленный массив,состоящий из 20 элементов(использовать рандомайзер).Если элемент массива чётный, то прибавьте к нему 1,если нечётный-умножить на 2.Вывести на экран изменённый массив,для этого нужно снова использовать цикл​

Answer 1

1) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2<>0) then p:=p+1;

end;

if (p>0) then writeln ('Присутствуют нечётные элементы')

else writeln ('Не присутствуют нечётные элементы');

end.

2) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2=0) then a[i]:=a[i]+1

else a[i]:=a[i]*2;

end;

writeln ('---'); // разделение двух массивов

for i:=1 to 20 do writeln (a[i]);

end.

Answer 2

Конечно! Вот решения задач на языке Pascal:

1. Проверка наличия нечётных элементов в массиве:

pascalCopy code
program CheckOddElements;

var
  arr: array[1..20] of integer;
  i: integer;
  hasOdd: boolean;

begin
  randomize;

  { Заполняем массив случайными числами }
  for i := 1 to 20 do
    arr[i] := random(100);  { Генерируем случайное число от 0 до 99 }

  { Проверяем наличие нечётных элементов }
  hasOdd := false;
  for i := 1 to 20 do
  begin
    if arr[i] mod 2 <> 0 then
    begin
      hasOdd := true;
      break;
    end;
  end;

  { Выводим результат }
  if hasOdd then
    writeln('В массиве есть нечётные элементы.')
  else
    writeln('В массиве нет нечётных элементов.');

  readln;
end.

2. Изменение массива согласно условию:

pascalCopy code
program ModifyArray;

var
  arr: array[1..20] of integer;
  i: integer;

begin
  randomize;

  { Заполняем массив случайными числами }
  for i := 1 to 20 do
    arr[i] := random(100);  { Генерируем случайное число от 0 до 99 }

  { Изменяем массив }
  for i := 1 to 20 do
  begin
    if arr[i] mod 2 = 0 then
      arr[i] := arr[i] + 1
    else
      arr[i] := arr[i] * 2;
  end;

  { Выводим изменённый массив }
  for i := 1 to 20 do
    writeln(arr[i]);

  readln;
end.

Оба решения генерируют случайные числа для заполнения массива и используют циклы для обработки элементов.