PascalABC 11.30.В массиве хранится
информация о численности учеников в
каждом из 42 классов школы. Выяснить,
верно, ли, что общее число учеников в
школе есть четырехзначное число.
Var
a : array [1..42] of integer;
sum : integer;
i : byte;
begin
randomize;
for i := 1 to 42 do begin
a[i] := random(30) + random(20);
write(a[i], |);
sum += a[i];
end;
writeln();
if sum >= 1000 then writeln(Число четырехзначное! Всего: , sum)
else
writeln(Число НЕ четырехзначное! Всего: , sum)
end.
----
массив заполняется случайным образом
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
