N += print("Кі.
показати змінну п
Дайте відповіді на запитання
1. Якою є блок-схема циклу з лічильником?
2. Як виконуватиметься цикл
повторити 5
поворот с
х
градусів
fo
говорити Привіт! 2 сек
По ви можете сказати ,
су​

program gulkakh;

const n=5;

var a:array[1..n,1..n] of integer;   

i,j,k,max,stroka:integer;

begin

writeln('Исходная матрица:');

for i:=1 to n do   

for j:=1 to n do    begin   

 a[i,j]:=random(20)-10;   

 write(a[i,j],' ');   

  if j=n then writeln; 

  end;   

 stroka:=1;

max:=a[1,1];

for i:=1 to n do

for j:=1 to n do begin

if max<a[i,j] then begin

max:=a[i,j];

stroka:=i;

end;

end;

k:=n;

for i:=stroka to n-1 do

for j:=1 to n do

a[i,j]:=a[i+1,j];

k:=k-1;

writeln('Без удаленной строки:');

for i:=1 to k do 

 for j:=1 to n do begin

  write(a[i,j],' '); 

if j=n then writeln; 

end;

end.

Program z1;
        var a:array[1..100] of integer;
        n,i:byte;ma:integer;
begin
        write('n=');readln(n);
        for i:=1 to n do begin
                write(i,')');readln(a[i])
        end;
        ma:=a[1];
        for i:=1 to n do begin
                if a[i]>ma then begin
                        ma:=a[i]
                end
        end;
        for i:=1 to n do begin
                a[i]:=ma
        end;
        writeln('test n=',n);
        for i:=1 to n do begin
                writeln(a[i])
        end;
        readln
end.