Написать программу в паскале:Известен год рождения каждого человека из группы. Определить...

Question

Написать программу в паскале:Известен год рождения каждого человека из группы. Определить число лю-
дей, родившихся до 1985 года, и число людей, родившихся после 1990 года

Answer 1

Программа для PascalABC.net:
Program _DOMASHKA;const n=10;var a:array[1..n] of integer;    i,k1,k2:integer;beginfor i:=1 to n do beginwriteln('введите год рождения человека');readln(a[i]);end;k1:=0; k2:=0;for i:=1 to n do beginif (a[i]<1985) then k1:=k1+1;if (a[i]>1990) then k2:=k2+1;end;writeln('количество людей, родившихся до 1985=',k1);writeln('количество людей, родившихся после 1990=',k2);end.

Comments

надо для pasca abc

---

Данная программа будет отлично работать как для PascalABC.net, так и для PascalABC, т.к. здесь нет ничего, чего нет в обычном паскале. (а отличие у этих двух программ не большие) Надо было лишь применить хоть немного усилий, скопировать программу, на всякий случай проверить её (ну а вдруг) и понять что всё отлично работает, раз уж самой писать программу не хотелось :)