Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197096
14.11.2019, 15:18
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:Дан массив, состоящий из NХM элементов, значения которого – случайные числа из отрезка [Р, Т]. Найти среднее арифметическое элементов массива.В pascal

Обсуждение

давно
puporev
Профессор
401888
1232
14.11.2019, 15:31
общий
это ответ
Здравствуйте, JonMoxley!
[code lang=pascal]var a:array[1..15,1..15] of integer;
n,m,p,t,i,j:integer;
s:real;
begin
repeat
writeln('Введите количество строк и столбцов от 2 до 15');
readln(n,m);
until(n in [2..15])and(m in [2..15]);
repeat
write('Введите диапазон чисел p<t');
readln(p,t);
until p<t;
writeln('Массив А');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=p+random(t-p+1);
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
for i:=1 to n do
for j:=1 to m do
s:=s+a[i,j];
s:=s/n/m;
write('Среднее арифметическое элементов=',s:0:2);
end.[/code]
4
Форма ответа