Внебольшом городке живут пятеро друзей.иванов ,петров,сидоров,гришин и алексеев.професии у них разные - id1055981620211231 от matuezh 31.12.2021 08:02

Question

Информатика: Внебольшом городке живут пятеро друзей.иванов ,петров,сидоров,гришин и алексеев.професии у них разные .один из них плотника.

matuezh · Accepted Answer

Var
x:real;
arr2: array [1..4,1..6] of integer;
arr1: array [1..4] of integer;
begin
    writeln('Введи число для сравнения');
    readln(x);
   for var i:=1 to 4 do
  begin
   writeln('Вводим строку ',i);
for var j:=1 to 6 do
   begin
writeln('Введи число ', j);
   readln(arr2[i,j]);
if arr2[i,j]>x then arr1[i]:=arr1[i]+1;
end;
    end;
   writeln('Двумерный массив: ', arr2, ' Количество чисел больше заданного: ', arr1);
end.

Внебольшом городке живут пятеро друзей.иванов ,петров,сидоров,гришин и алексеев.професии у них разные .один из них плотника.

MOGZ ответил