Составить блок- схему Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.
242
439
Ответы на вопрос:
Популярно: Информатика
-
ВИТ2103.07.2020 01:17
-
ден102518.12.2022 11:33
-
nasta08625.09.2020 21:43
-
morgacheva200105.09.2021 18:56
-
devil2a04.01.2020 13:07
-
MDA142rus17.05.2022 07:52
-
LEZENR11.03.2020 01:36
-
lybovii03.11.2021 15:18
-
прррррррррррррря16.07.2021 17:13
-
polinavak0521.06.2020 21:53