Задание по двумерным массивам. Использовать Pascal ABC

Question

Задан двухмерный массив целых чисел A размером N на M. Сформировать одномерный массив В [К] , состоящий из элементов массива А, меньших значения Т, и найти их сумму

Dear · Accepted Answer

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.

Виктория · Answer

Марат, ты это к чему привел совсем другую программу?