Найти и напечатать номера столбцов матрицы, сумма элементов которых попадает в заданный интервал - PascalABC.NET

Формулировка задачи:

в целочисленной матрице найти и напечатать номера столбцов сумма элементов которых попадает в заданный отрезок [a,b]

Код к задаче: «Найти и напечатать номера столбцов матрицы, сумма элементов которых попадает в заданный интервал - PascalABC.NET»

textual
Var h,w:integer;
    i,j:integer;    
    min,max:integer;  
    s:integer;    
    a:array [1..100,1..100] of integer;
    
Begin
 
 writeln('Введите высоту и ширину матрицы: ');
 readln(h,w);
 
 writeln('Введите [a,b]: ');
 readln(min,max);
 
 //Заполнение 
 For i:=1 to h do
  For j:=1 to w do
   a[i,j]:=Random(10);
 
 write('Номера столбцов: ');
 
 For i:=1 to w do
  begin
   s:=0;
   For j:=1 to h do s:=s+a[j,i];
   if (s>=min) and (s<=max) then write(i,', ');
  end;
 
 For i:=1 to h do
  begin
   writeln;
   For j:=1 to w do
   write(a[i,j]:2);
  end; 
 
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ