PascalABC 11.30.В массиве хранится
информация о численности учеников в
каждом из 42 классов школы. Выяснить,
верно, ли, что общее число учеников в
школе есть четырехзначное число.
Ответы
Ответ дал:
3
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.
----
массив заполняется случайным образом
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.
----
массив заполняется случайным образом
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад