Question

Помогите написать программу. Срочно!!!! Умоляю!!!! Мне уже в четверг надо показать.

Answer 1

я сделала отдельные номера как отдельные задачи

Answer 2

var a:array of integer;

i,k2,k6,n:integer;

begin

writeln('Введите количество чисел в массиве: ');

readln (n);

a:=new integer [n+1];

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

for i:= 1 to n do

begin

a[i]:=random (2001)-1000;

if (a[i]>9) and (a[i]<100) or (a[i]<-9) and (a[i]>-100)then k2:=k2+1;

if a[i]<600 then k6:=k6+1;

write (a[i],'  ')

end;

writeln;

writeln('Количество двузначных чисел: ',k2);

writeln('Количество чисел меньше 600: ',k6)

end.