Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитывает количество положительных чисел среди элементов массива. Формат ввода
Сначала задано число N — количество элементов в массиве (1<=N<=10000). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.

Формат вывода
Необходимо единственное число - количество положительных элементов в массиве.
Напишите на языке КУМИР.
Пример
Ввод
5
1 2 3 -1 -4
Вывод
3

Зависит от того что за четырёхугольник
Если это квадрат то

Пример на Pascal
 
var a,S:real;{a- сторона четырёхугольника}
begin
 readln(a);
 S:=a*a;
write('Площадь равна: ',S);
end.

Если это прямоугольник то
var a,b,S:real;{a,b- стороны четырёхугольника}
begin
readln(a,b);
 S:=a*b;
write('Площадь равна: ',S);
end.
Если же четырёхугольник произвольный то

var d1,d2,alfa,S:real;{d1 и d2 диагонали alfa острый угол между ними}
begin
readln(d1,d2,alfa);
 S:=(d1*d2*sin(alfa))/2;
write('Площадь равна: ',S);
end.

На C++

PsyhoAssasin 43 секунды тому Если это квадрат
#include<iostream.h>
int main()
{
double a,S; // a- сторона четырёхугольника
cin>>a;
S=a*a;
cout<<"Площадь равна:"<<S;
return 0;
}

Если это прямоугольник то
#include<iostream.h>
int main()
{
double a,b,S; // a,b- стороны четырёхугольника
cin>>a;
cin>>b;
S=a*b;
cout<<"Площадь равна:"<<S;
return 0;
}

Если же четырёхугольник произвольный то
#include<iostream.h>
#include<math.h>
int main()
{
double d1,d2,alfa,S;
cin>>d1;
cin>>d2;
cin>>alfa;
S=(d1*d2*sin(alfa))/2;
cout<<"Площадь равна:"<<S;
return 0;
}

Вот такая программа для горизонтального коридора в одну клетку шириной и для начального положения робота в левом конце коридора.

Если радиации в коридоре не найдено, программа выводит об этом сообщение (без вывода цифровой статистики при этом).

использовать Робот

алг

нач

вещ макс=0 | максимальный найденный уровень радиации

цел счёт=0 | число наиболее заражённых клеток

нц

если радиация>макс то макс:=радиация все

если справа свободно то вправо иначе выход все

кц

если макс=0 то вывод 'радиации в коридоре нет'; выход все

нц

если радиация=макс то закрасить; счёт:=счёт+1 все

если слева свободно то влево иначе выход все

кц

вывод 'макс.уровень радиации= ',макс,нс

вывод 'клеток с таким уровнем= ',счёт

кон