паскаль 1) Заполнить массив случайных чисел в интервале [-50; 50), чтобы отобразить, чтобы вычислить количество отрицательных элементов 2) Введите один одномерный массив, вывести его на экран, чтобы найти максимальный элемент и его порядковый номер 3) Заполните массив случайных чисел в интервале [0; 50), массив отображения на экране, нахождение минимального и максимальные элементы поменять их местами

В pascal
1) Заполните массив случайными числами из интервала [-50;50), вывести на экран, посчитать сумму отрицательных элементов
2)Ввести одномерный массив, вывести его на экран, найти максимальный элемент и его порядковый номер
3)Заполните массив случайными числами из интервала [0;50), вывести массив на экран, найти минимальный и максимальный элементы, поменять их местами

  • 1)
    var a:array 1..10 of integer;
    i,sum:integer;
    begin
    randomize;
    sum:=0;
    for i:=1 to 10 do
    begin
    ai:=random(100)-50;
    write (ai, );
    if ai < 0 then sum:=sum+ai;
    end;
    writeln;
    writeln (Summa: ,sum);
    readln;
    end.

    2)
    var a:array 1..10 of integer;
    i,max,index:integer;
    begin
    for i:=1 to 10 do
    begin
    write (A,i, = );
    readln (ai);
    end;
    max:=a1;
    index:=1;
    for i:=2 to 10 do
    if ai > max then
    begin
    max:=ai;
    index:=i;
    end;
    writeln (Max: ,max,.Index: ,index);
    readln;
    end.

    3)
    var a:array 1..10 of integer;
    max,min,i,temp:integer;
    begin
    randomize;
    for i:=1 to 10 do
    begin
    ai:=random(50);
    write (ai, );
    end;
    writeln;
    max:=1;
    min:=1;
    for i:=2 to 10 do
    if ai > amax then max:=i else
    if ai < min then min:=i;
    writeln (Max: ,amax);
    writeln (Min: ,amin);
    temp:=amin;
    amin:=amax;
    amax:=temp;
    for i:=1 to 10 do write (ai, );
    end.