Var a:array[1..20] of integer;i,b,c:integer;beginb:=0;c:=0;for i:=1 to 20 do begina[i]:=random(-10,10);if (a[i])>=0 then b:=b+1else c:=c+1;end;writeln('положительных чисел ', b);writeln('отрицательных чисел ', c);if c>b then writeln('отрицательных чисел больше на ', c-b)else writeln('отрицательных чисел меньше на ',b-c)end.
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.
