1) Массив из 10 элементов заполнить случайными числами от -10 до 10 и вывести на экран сумму элементов. 2) Массив из 15 элементов заполнить случайными числами от 0 до 50 и вывести на экран количество четных элементов. 3) Массив из 20 элементов заполнить случайными числами от 0 до 100 и вывести на экран минимальное значение. Программа: PascalABC
Программа:
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.