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

//PascalABC.NET v3.3 1633

const n = 15;

var arr: array [1..n] of integer;

begin

for var i:=1 to n do

 arr[i]:=random(-5,5);

write('Исходный массив: ');

arr.PrintLn(', ');

var count:=0;

for var i:=1 to n do

 if arr[i] > 0 then

   count += 1;

writeln('Количество положительных элементов: '+count);

end.

Флаг Австрии принят в 1919 году. Отменён в 1938 году. Вновь восстановлен как государственный в 1945 году. Национальный флаг Австрии традиционно представляет собой прямоугольное полотнище с соотношением сторон 2:3 (хотя законодательно не утверждено точное соотношение сторон и поэтому могут использоваться флаги разной длины и ширины[2] ), состоящее из трёх равновеликих горизонтальных полос — верхней красной, средней белой и нижней красной. Наряду с флагом Дании считается одним из старейших флагов Европы.

Флаг Австрии

Австрия

Flag of Austria.svg

Утверждён

21 октября 1919

Отменён

13 марта 1938

Повторно

учреждён

1 мая 1945[1]

Блок схему не нарисую,но решение скажу.

 

uses crt;

var a,b,c,p:integer;

begin

writeln('Введите a,b,c'); readln(a,b,c);

if (a>b) and (a>c) then 

 begin

 writeln('a большее');

 p:=a; writeln('Т.к a большее,то в p записываем ',a);

 end;

if (b>a) and (b>c) then 

 begin 

 writeln('b большее');

 p:=b; writeln('Т.к b большее,то в p записываем ', b);

 end;

if (c>a) and (c>b) then 

 begin 

 writeln('c большее'); 

 p:=c; writeln('Т.к c большее,то в p записываем ',c);

 end;

end.

 

P.s это полное решение задачи,если тебе конечно нужна была на паскале.

Если нужен алгоритм выдели его сама.