Написать программу в паскале: известен год рождения каждого человека из группы. определить число лю- дей, родившихся до 1985 года, и число людей, родившихся после 1990 года
Программа для 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.
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.