АП
Анна Полехина

написать программу в паскале ABC

В массиве хранится информация о численностях учеников каждых из 42 классов школы. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число.

*7
***брoдяга*** 777

const n=42; var a: array[1..n] of byte; i,s: integer;
begin s:=0;
for i:=1 to n do begin read(a[ i ]); inc(s,a[ i ]); end;
if s in [1000..9999] then Write('yes') else Write('no');
end.

Похожие вопросы
Как зделать программу в паскале abc?
Помогите написать прогу в Паскале ABC!
Я написал программы в паскале .
написать программу в паскале
Написать на Паскале программу
написать программу на Паскаль.
Не могу составить программу в Паскале abc.
Помогите написать программу в Паскале abc.
Помогите, пожалуйста, написать программу в Паскаль ABC..
Написать задачу в Паскале ABC