Question

дана вещественная матрица A (n*m). получить: k - число компонент матрицы А, принадлежащий отрезку [3;5], s- сумму компонент, не принадлежащий отрезку [7;10]
Нужно сделать программу на языке Паскаль. Через массив.

Answer 1

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  var a:=new real[n,m];
  var (k,s):=(0.0,0.0);
  Randomize(3); // Убрать строку, если нужны другие случайные числа
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do begin
      a[i,j]:=0.1*Random(0,130);
      Write(a[i,j]:5:1);
      if a[i,j].Between(3.0,5.0) then k+=a[i,j];
      if not a[i,j].Between(7.0,10.0) then s+=a[i,j]
      end;
    Writeln
    end;
  Writeln('k=',k,', s=',s)
end.

Пример
Количество строк и столбцов в матрице: 5 8
  3.8  9.1 11.3  2.6  7.3  2.3  3.2 12.4
  4.5  4.9  6.5 10.6  9.1  0.3  1.0 11.8
  1.6 11.2  9.9  6.2  2.8  7.6  6.5  1.0
 13.0  5.9  6.7  7.1  4.9  6.5  3.8  3.1
  6.5  0.8  9.0 11.6  6.7  5.5 11.2  8.6
k=28.2, s=190.7