Ответы на вопрос:
Program znanija_com; const n = 3; m = 3; type mas = array[1..n, 1..m] of real; var arr : mas; i,j : integer; summ, max : real; begin for i: =1 to n do begin for j: =1 to m do begin writeln('введите элемент массива [', i, ',', j, ']'); readln(arr[i, j]); end; end; for i: =1 to m do begin max: =arr[1, i]; for j: =2 to n do begin if arr[i,j]> max then max: =arr[i,j]; end; summ: =summ+max; end; writeln('сумма равна ', summ); readln(); end.
Популярно: Информатика
-
BoberTV19.02.2021 15:27
-
nnika101503.08.2020 15:50
-
vaneevartem62508.04.2022 18:50
-
ponomarjovakse05.11.2022 18:24
-
Кисамяумяумур27.02.2022 18:18
-
polinakarpenko302.01.2022 07:52
-
Serey999915.05.2020 12:23
-
YerasylAmangeldi20.12.2020 00:28
-
пстрвчлвяряу16.11.2021 06:05
-
cvetok55505.08.2022 16:26