< >

Помогите с информатикой
Паскаль

Приложения:

Ответы

Ответ дал: Puz1koO
0

var

 a: array [1..10] of integer;

 i,count:integer;

begin

 count:=0;

 for i:=1 to 10 do

   begin

     read(a[i]);

     if a[i]>0 then inc(count);

   end;

 writeln(count);

end.

Похожие вопросы
Английский язык
2 года назад
СРОЧНО !!!!! ВЫБЕРИТЕ ПРАВИЛЬНЫЙ ВАРИАНТ 1) I am going to TAKE / DO / GIVE the exam with another group. 2) Nobody can SPEAK / TELL / SAY the difference between these two things. 3) I am afraid
Английский язык
2 года назад
Who have a book Hath friends at hand, And gold and gear At his command; And rich estates, If he but look, Are held by him Who hath a book. Who hath a book Hath but to read And he may be A
Математика
2 года назад
В одном районе города Вертикального есть только двухэтажные и семиэтажные дома. Однажды Вася, живущий на четвёртом этаже одного из домов, подсчитал общее количество этажей в районе. Он насчитал 26
География
2 года назад
Какие силы Земли участвуют в образовании равнины СРОЧНО ПОЖАЛУЙСТА​
Алгебра
8 лет назад
номер 275 примеры 2,4,6,8
Математика
8 лет назад
По плану завод должен выпускать 920 швейных машин за каждые 5 дней но рабочие повысили производительность труда и стали выпускать в день на 16 швейных машин больше сколько швейных машин выпустит
Математика
9 лет назад
в желтой папке в 4 раза больше листов бумаги чем в красной.сколько всего листов бумаги в этих папках если в красной папке на 30 листов меньше чем в жолтой? решите уравнением
Математика
9 лет назад
найди закономерность и заполни пропуски 4,5,6,9,8,13,10,...,....