Дайте наиболее точное общее имя каждой группе объектов. а)канада, бразилия, японияб)канада, сша, мексикав) - id285509720230207 от wewewewwe 07.02.2023 19:59

Question

Информатика: Дайте наиболее точное общее имя каждой группе объектов. а)канада, бразилия, японияб)канада, сша, мексикав) лаура, эльба, вислаг) принтер, монитор,клавиатура

wewewewwe · Accepted Answer

Const   n = 9; var   a:array[1..n,1..n] of integer;   i,j,k,max: integer; begin   Randomize;   Writeln( Исходная матрица );   max:=-100;   for i:=1 to n do   begin     for j:=1 to n do     begin       a[i,j]:=Random(51)-25;       Write(a[i,j]:4);       if max a[i,j] then max:=a[i,j]     end;     Writeln   end;     for i:=2 to n-1 do { не просматривать первую и последнюю строки }     for j:=1 to n do       if a[i,j]=max then a[i,j]:=0;     Writeln( Результирующая матрица );   for i:=1 to n do   begin...

Дайте наиболее точное общее имя каждой группе объектов. а)канада, бразилия, японияб)канада, сша, мексикав) лаура, эльба, вислаг) принтер, монитор,клавиатура

MOGZ ответил