10 класс! паскаль ! состиавить прогораму которая в обычном двумерном массиве выведет на печать индекс тех элементов, кот. больше среднего арифметического элементов массива. все это делается относительно i и j
write('введите количество строк матрицы '); readln(m);
write('введите количество столбцов матрицы '); readln(n);
writeln('исходный массив: ');
sr : = 0;
for i : = 1 to m do
begin
for j : = 1 to n do
begin
a[i, j] : = random(101) - 50;
write(a[i, j]: 5: 0);
sr : = sr + a[i, j];
end;
writeln;
end;
sr : = sr / (n * m);
writeln('среднее арифметическое равно ', sr);
writeln('элементы больше среднего арифметического: ');
for i : = 1 to m do
for j : = 1 to n do
if a[i, j] > sr then
writeln('a[', i, ', ', j, '] = ', a[i, j]);
end.
byfetvostochniy
04.11.2020
1) 20480 * 40 = 819200 (всего передано данных в битах за 40с) 819200 / 8 = 102400 (перевели в байты) 102400 / 1024 = 100 (перевели в кбайты) ответ: 100 кбайт 2) 64 / 8 * 1024 = 8192 (скорость модема байт/сек) 16 * 60 = 960 (переводим 16 минут в секунды) 8192 * 960 = 7864320 (передано в байтах за 16 мин) 7864320 / 1024 / 1024 = 7,5 ответ: 7,5 мбайт 3)70 / 8 * 1024 = 8960 (скорость модема байт/сек) 280 * 1024 = 286720 (объем файла в байтах) 286720 / 8960 = 32 ответ: 32 секунды 4)6,25 * 1024 * 1024 = 6553600 (объем данных в байтах) 6553600 * 8 = 52428800 (объем в битах) 52428800 / 1024 / 1024 = 50 ответ: 50 мбит/сек
Yeroshkina411
04.11.2020
Запись формулы в ячейке начинается со знака «равно» (=). формулы записываются по строго определенным правилам. формулы содержат числа, имена ячеек, знаки операций, круглые скобки, имена функций. вот как выглядят знаки операций: + (сложение); - (вычитание); * (умножение); / (деление); ^ (возведение в степень). вся формула пишется в строку, символы выстраиваются последовательно друг за другом. примеры записи формул: 2.5*а1 + в2*сз (вз - с1)/(вз + с1) f7/2 + g7/3 (а5 - 1)^2 в формулах допускается употребление некоторых функций. например: корень(в5+в6). здесь корень — имя функции «квадратный корень». аргументы всегда пишутся после имени функции в круглых скобках.
var
a: array[1..100, 1..100] of real;
n, m, i, j: integer;
sr: real;
begin
write('введите количество строк матрицы '); readln(m);
write('введите количество столбцов матрицы '); readln(n);
writeln('исходный массив: ');
sr : = 0;
for i : = 1 to m do
begin
for j : = 1 to n do
begin
a[i, j] : = random(101) - 50;
write(a[i, j]: 5: 0);
sr : = sr + a[i, j];
end;
writeln;
end;
sr : = sr / (n * m);
writeln('среднее арифметическое равно ', sr);
writeln('элементы больше среднего арифметического: ');
for i : = 1 to m do
for j : = 1 to n do
if a[i, j] > sr then
writeln('a[', i, ', ', j, '] = ', a[i, j]);
end.