Дана матрица действительных чисел размера 7 на 7. вычислите число отрицательных и положительных элементов матрицы, а также найдите среднее арфиметическое каждого из столбца

//PascalABC.NET 3.2 сборка 1318

Const
  n=7;
  Var
   ma:array[1..n,1..n] of integer;
  countn,countp,i,j:integer;
  sr:real;
begin
for i:=1 to n do
  for j:=1 to n do
    begin
      readln(ma[i][j]);
      if ma[i][j]>0 then inc(countp) else
        if ma[i][j]<0 then inc(countn);
    end;
for i:=1 to n do
  begin
    for j:=1 to n do
      write(ma[i][j]:4);
    writeln;
  end;
writeln('Count of positive=',countp,', count of negative=',countn);
 for j:=1 to n do
  begin
  sr:=0;
    for i:=1 to n do
    sr+=ma[i][j];
  writeln(j,' ',sr/n);
  end;
end.

Задача А

program Boom;

uses crt;

var

 a, b: integer;

begin

 Read(a, b);

 if a > b then Writeln('Наибольшее число ', a) else Writeln('Наибольшее число ', b);

end.

Тестовое решение

12

52

Наибольшее число 52

Задача Б

program Boom;

uses crt;

 

var

     a:array[1..4] of Integer;

     max:integer;

     i:byte;

Begin

for i:= 1 to 4 do

Begin

Write('Введите число:');

Read(a[i]);

End;

max := a[1];

for i:= 2 to 4 do

if a[i] > max then

max := a[i];

Write('Наибольшее число:');

WriteLn(max);

End.

Тестовое решение:

Введите число:12

Введите число:53

Введите число:34

Введите число:63

Наибольшее число:63

1) Модель - это упрощённая копия чего - либо. Моделирование - создание моделей. В его основе - упрощение и повторение. 2) Модель здания, модель автомобиля, например - игрушки детей это модели. 3) Внутри компьютера можно создать более точные модели, а также - там это гораздо проще. Также в компьютере можно испытать модель в симуляции. 4) Модуляция - упрощение. Демодуляция - усложнение. 5) Их нельзя потрогать, увидеть (Только в схеме), но можно понять. 6) Имеющая свойственную этой модели структуру, модель.