ПОМОГИТЕ Разработать алгоритм и программу для вычисления среднего арифметического любых указанных строки или столбца двумерного массива размером [n×m]. Значения n и m должны вводиться с клавиатуры (принять 4≤n≤10, 4≤m≤10). Ввод номера строки или номера столбца – с клавиатуры. Предусмотреть вывод исходного массива в виде таблицы.Free PASCAL

Ответы:
евелина Гущина
28-12-2010 15:44

constn = 10;m = 10;var i, j, column, row, sum_column, sum_row: integer;arr: array [1..n,1..m] of integer;begin for i :=1 to n dobegin for j:=1 to m dobegin arr[i,j]:= random()*10;end;end;readln(row);readln(column);sum_column:= 0;sum_row := 0;for i:=1 to n dobegin sum_row := sum_row + arr[i,row];end;for j:=1 to m dobegin sum_column := sum_column + arr[column, j];end;writeln(sum_column);writeln(sum_row);end.Не проверено. Написал сходу в окне. 

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «ПОМОГИТЕ Разработать алгоритм и программу для вычисления среднего арифметического любых указанных строки или столбца двумерного массива размером [n×m]. Значения n и m должны вводиться с клавиатуры (принять 4≤n≤10, 4≤m≤10). Ввод номера строки или номера столбца – с клавиатуры. Предусмотреть вывод исходного массива в виде таблицы.Free PASCAL» от пользователя МАРИЯ СОЛТЫС в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!