Задачи

[NatalyaNK]

1. Среди всех 4-х значных чисел найти все числа перевертыши(двумя из for,while,repeat)

2.Дан массив из n элементов, найти количество положительных чисел.

Пожалуйста помогите)

[Maksimall89]

2 задача твоя.

uses crt;
const n=10;
var
a:array[1..n] of integer;
i,kol:integer;
begin
clrscr;
{задем массив}
for i:=1 to n do
    begin
         a[i]:=5-random(10);
         writeln(' ',a[i]);
    end;
{ищем}
kol:=0;
for i:=1 to n do
    begin
         if a[i]>=0 then inc(kol);
    end;
writeln('Количество положительных чисел=',kol);
    
end.

[NatalyaNK]

Спасибо большое)