Я не знаю через массив или как это писать, поэтому напишу простейший вариант
program n_pologitelnih;
uses crt;
var i,n,k,a:integer;
begin
clrscr;
write('Введи N=>> ');
readln(n);
for i:=1 to n do
begin
write('Введи число');
readln(a);
if a>0 then k:=k+1;
end;
write('Положительных чисел из ',n,' введенных - ',k);
readln;
end.
Консольное приложение:
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:4)
end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.
Пример:
Массив A:
31 37 20 22 37 11 45 19 3 14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9
k = 4
Program chisla;
uses crt;
var a,b,c,d : integer;
begin
Writeln('Введите трехзначное число: ');
Readln(a);
if (a<100) or (a>999) then writeln('Введено не трехзначное число')
else
begin
b:=a div 100;
c:=(a-(b*100)) div 10;
d:=a-(b*100)-(c*10);
Writeln('Сумма цифр этого числа равна ',b+c+d);
end
end.
Ответ:10762,875. Вроде так)
Const n=10;
Var a:array[1..n] of integer;
i,k,j:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(a[i],' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod 3=0 then
Write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[j] > a[j+1]) then
begin
k:= a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
<span> end.</span>