Написать программу ввода массива до тех пор,пока сумма введенных элементов не превысит числа 100.На Паскале
Написать программу ввода массива до тех пор,пока сумма введенных элементов не превысит числа 100.На Паскале
Гость
Ответ(ы) на вопрос:
Гостьvar
sum,i:integer;
a:array[1..1024] of integer;
begin
i:=0;
sum:=0;
repeat
i:=i+1;
readln(a[i]);
sum:=sum+a[i];
until sum>100;
end.
Не нашли ответ?
Похожие вопросы