Предмет: Информатика,
автор: настя8apple
2. Вычислите среднее арифметическое значение элементов двухмерного массива А(8*9), больших заданного числа Q.
Ответы
Автор ответа:
0
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.
// ввести значения массива а и значение 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.
Похожие вопросы
Предмет: Русский язык,
автор: mariaforget
Предмет: МХК,
автор: alenasadrenkova
Предмет: Литература,
автор: Lizika2008
Предмет: Химия,
автор: 2000Спс
Предмет: Химия,
автор: akella745