Question

пожалуйста помогите Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с четными значениями.

Answer 1

randomize;
integer summ, array[1..10];
summ := 0;


for I := 1 to 10 do begin
array[I] := random(10)+1;
end;

for j := 1 to 10 do begin
if array[j] mod 2 == 2 do begin
summ += array[j];
end;
end;

Answer 2

ето точно не все

Answer 3

нечаянно отправил

Answer 4

так отправь полностью

Answer 5

не выпендривайся, плес. синтаксис паскаля я не знаю, так что поправишь, если что.