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

2. Вычислите среднее арифметическое значение элементов двухмерного массива А(8*9), больших заданного числа Q.

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

Begin
// ввести значения массива а и значение Q
for i:=1 to 8
for j:=1 to 9
if a[i,j]>Q then
begin
 sum=sum+a[i,j];
 kol=kol+1;
end;
if kol>0 then
sr=sum/kol;
write(srednee= ,sr);
else
write(net takih chisel);
end.