для целочисленного массива X(n), заданного датчиком случайных чисел в интервале [-15;25], найти наибольший из отрицательных элементов Язык Паскаль Информатика 11 класс

pascal

Объяснение:

program maximum;

var n, i, max: integer;

   x: array of integer;

begin

   Write('Введите размер массива:');

   ReadLn(n);

   SetLength(x,n);

   Randomize();

   max := -15;

   WriteLn('Массив:');

   for i := 0 to n - 1 do

   begin

     x[i] := round(random(41) - 15);

     Write(x[i],', ');

     if (x[i] > max) and (x[i] < 0) then max := x[i];

   end;

   WriteLn();

   WriteLn('Наибольший из отрицательных элементов равен ', max);

end.

1.

program z1;

var a:array [1..10] of integer;

i,k:integer;

begin

write ('Введите элементы массива через пробел и нажмите Enter ');

for i:=1 to 10 do read (a[i]);

write ('Массив: ');

for i:=1 to 10 do write (a[i],'  ');

writeln;

write ('Номера элементов больше 5: ');

for i:=1 to 10 do if a[i] > 5 then

begin

write (i,'  ');

k:=k+1

end;

writeln;

writeln ('Элементов больше 5: ',k)

end.

2.

program z2;

var s:string;

begin

readln (s);

while pos('о',s)<>0 do delete(s,pos('о',s),1);

writeln(s)

end.

Объяснение:

Смотри картинки

2. Программа удаляет только строчные русские о

1.

program z1;

var a:array [1..10] of integer;

i,k:integer;

begin

write ('Введите элементы массива через пробел и нажмите Enter ');

for i:=1 to 10 do read (a[i]);

write ('Массив: ');

for i:=1 to 10 do write (a[i],'  ');

writeln;

write ('Номера элементов больше 5: ');

for i:=1 to 10 do if a[i] > 5 then

begin

write (i,'  ');

k:=k+1

end;

writeln;

writeln ('Элементов больше 5: ',k)

end.

2.

program z2;

var s:string;

begin

readln (s);

while pos('о',s)<>0 do delete(s,pos('о',s),1);

writeln(s)

end.

Объяснение:

Смотри картинки

2. Программа удаляет только строчные русские о