Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197160
22.11.2019, 18:40
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:

Дан массив, состоящий из NХM элементов, значения которого вводится с клавиатуры. Найти среднее арифметическое положительных элементов массива.

Pascal

Приложение:
Pascal

Обсуждение

давно
puporev
Профессор
401888
1232
22.11.2019, 21:37
общий
это ответ
Здравствуйте, rail!
[code lang=pascal]var a:array[1..10,1..10] of integer;
n,m,i,j,k:integer;
s:real;
begin
repeat
writeln('Введите размеры массива от 2 до 10');
readln(n,m);
until(n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива, целые положительные и отрицательные числа');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln('Введенный массив');
s:=0;
k:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:5);
if a[i,j]>0 then
begin
k:=k+1;
s:=s+a[i,j];
end;
end;
writeln;
end;
if k=0 then write('В массиве нет положительных элементов')
else
begin
s:=s/k;
write('Среднее арифметическое положительных элементов=',s:0:2)
end;
end.[/code]
Форма ответа