немного дополню ответ коллеги vladimirgoryachev.
а) в данной не нужен массив. нам сами числа не интересуют (нет цели специально выводить, например, 25-е число), а только их сумма. поэтому будем просто сразу считать сумму.
б) если был бы и нужен массив, то не вполне очевидно, почему он должен быть именно в 100 элементов. никак не запрещается иметь, например, 101 ненулевое число. в этом случае программа владимира либо будет работать неправильно, либо выдаст ошибку.
в) подключение библиотеки crt тут тоже не особо нужно. не думаю, что возможность очистить экран (crt в данной программе используется только для этого) существенна.
г) можно ограничиться одним циклом, а не двумя.
с учетом вышенаписанного, код можно переписать так: program p1;
var temp, summ : integer;
begin
writeln('vvod massiva: '); summ: =0; repeat readln(temp); summ: =summ+temp; until temp = 0; writeln('resultat: ',summ); readlnend.
Поделитесь своими знаниями, ответьте на вопрос:
Какое из этих чисел самое большое? 756(в 13) 756(в 10) 756 (в 8) 756(в 16) 756(в 12) 756(в 11)