Помогите пожалуйста написать программу (паскаль) 10 класс дам 20 баллов

Помогите пожалуйста написать программу (паскаль) 10 класс дам 20 баллов
Гость
Ответ(ы) на вопрос:
Гость
Program pr; uses crt; Var n,i, k1,k2:integer; mas: array[1..1000] of integer; Begin randomize; Writeln('Введите размер массива не больше 1000'); readln(n); k1:=0;  k2:=0; for i:=1 to n do     Begin       mas[i]:=Random(220+1)-70;        if (mas[i]<0)          then k1:=k1+1;       if (mas[i]>0)         then k2:=k2+1;     end; Writeln('Сформированный массив:'); for i:=1 to n do   Begin       Write(mas[i],' ');    end; Writeln(); Writeln('Количество отрицательных = ', k1); Writeln('Количество положительных = ', k2); readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы