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 for j:=1 to n do Write(a[i,j]:4); Writeln end; end.
USES CRT;
VAR A:array[1..100] of integer;
i,n,summa:integer;
BEGIN
CLRSCR;
Randomize;
{Проверяем на размер массива, чтобы не превышал 100}
Repeat
Writeln('Введите размер массива до 100');
Readln(n);
Until n<=100;
{Заполняем массив случайными числами от -50 до 100}
For i:=1 to n do
begin
A[i]:=-50+Random(100);
Write(A[i],' ');
end;
summa:=0;
{Находим отрицательные элементы массива и складываем}
For i:=1 to n do
if A[i]<0 then summa:=summa+A[i];
Writeln;
Writeln('Сумма отрицательных элементов массива = ',summa);
READLN;
END.