Question

1) Массив из 10 элементов заполнить случайными числами от -10 до 10 и вывести на экран сумму элементов. 2) Массив из 15 элементов заполнить случайными числами от 0 до 50 и вывести на экран количество четных элементов. 3) Массив из 20 элементов заполнить случайными числами от 0 до 100 и вывести на экран минимальное значение.

Программа: PascalABC

Answer 1

Программа:

Pascal:

№1) var arr: array[1..10] of integer;

begin

 for var i := 1 to 10 do arr[i] := random(-10, 10);

 writeln(arr, #10, arr.sum);

end.

№2) var arr: array[1..15] of integer;

 even, i: integer;

begin

 for i := 1 to 10 do begin

   arr[i] := random(50);

   if arr[i] mod 2 = 0 then inc(even);

 end;

 writeln(arr, #10, even);

end.

№3) var arr: array[1..20] of integer;

begin

 for var i := 1 to 20 do arr[i] := random(100);

 writeln(arr, #10, arr.min);

end.