СРОЧНО ПОЖАЛУЙСТА ЧЕРЕЗ ПРОГРАММУ ПАСКАЛЬ
1).найти все четырехзначные числа,делящиеся на 27.
2).дан массив целых чисел,состоящий из 20 элементов.Заполнить его случайными числами и найти количество элементов массива. значения которых больше заданного числа и кратны 5.

Первая задача
var
i: integer;
begin
for i:=1000 to 9999 do
 begin
  if (i mod 27)=0 then writeln(i);
 end;
 end.

Вторая задача
var
a: array [1..21] of integer;
i, j, n: integer;
begin
write(Сгенерированый массив: );
for i:=1 to 20 do
 begin
 a[i]:=random(100);
 write(a[i], );
 end;
writeln;
write(Введите число: );
readln(n);
for i:=1 to 20 do
 if (a[i]>n) and ((a[i] mod 5)=0) then inc(j);
 write(j);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.