Помогите вычеслить сумму чисел меньше 20 должно быть примерно так но без a:array [1..100]
Помогите вычеслить сумму чисел меньше 20
должно быть примерно так но без a:array [1..100]of integer;
(информатика 9 класс)
Program Program1;
Var
a:array [1..100] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 100 do
a[i]:=random(20);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
k:=k+a[i];
end;
Writeln('Сумма чисел меньше 20: ',k);
end.
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы