Задан двухмерный массив целых чисел A размером N на M. Сформировать одномерный массив В [К] , состоящий из элементов массива А, меньших значения Т, и найти их сумму
uses crt;
const n=8;m=10;
var a:array[1..n+1,1..m] of integer;
x,k:integer;
max:integer;
begin
clrscr;
for k:=1 to n do begin
for x:=1 to m do begin
a[k,x]:=random(100)-50;
write(a[k,x]:4 );
end;
writeln;
end;
writeln;
for x:=1 to m do begin
max:=0;
for k:=1 to n do begin
if max>a[k,x] then begin a[n+1,x]:=a[k,x];k:=n end;
end;
write(a[n+1,x]:4 );
end;
end.
Марат, ты это к чему привел совсем другую программу?
⇢