Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

помогите решить задачу:

дан двумерный массив. найти среднее арифметическое четных элементов массива. (Gambas)!!!!

Ответ оставил Гость

Pascal

const N = 10;
var arr: array[1..N] of integer;
i, k: byte;
sum: integer;
avr: real;
begin
writeln(Enter the ten elements of the array:);
for i:=1 to N do
read(arr[i]);
sum := 0;
i := 1;
k := 0;
while i <= N do begin
if (arr[i] mod 2) = 0 then begin
sum := sum + arr[i];
k := k + 1
end;
i := i + 2
end;
writeln(sum);
if k <> 0 then begin
avr := sum / k;
writeln(avr)
end
else
writeln(No elements);
readln;
end.