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

Question

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

Answer 1

Var A:array[1..10] of integer;
avg,sum,i:integer;
begin
for i:=1 to 10 do A[i]:=rand(50);
for i:=1 to 10 do begin
if A[i] mod 2 = 0 then sum:=sum+A[i];
end;
avg:=sum/10;
write(avg);
end.

Answer 2

Begin
writeln("Данный массив: ");
for i:=1 to 10 do begin
a[i]:=random(50)+1; writeln(a[i]," ");
if (i mod 2 = 0) then begin sr:=sr+a[i]; k:=k+1; end;
end;
sr:=sr/k;
writeln("Среднее арифметическое элементов с четными значениями = ",sr);
end.

Comments

Ну и добавить описания переменных надо. А - массив. Все переменные типа integer.