АП
Анна Полехина
написать программу в паскале ABC
В массиве хранится информация о численностях учеников каждых из 42 классов школы. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число.
В массиве хранится информация о численностях учеников каждых из 42 классов школы. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число.
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.