Дано целое число K, а также K наборов ненулевых целых чисел. Признаком завершения каждого набора является число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах
Категория: Delphi/Pascal
2013-04-28 21:06:22
code: #pascal
Program Series35; Const n=100; Var K:integer; sum,sum_all:integer; A:integer; i:integer; Begin write('Enter please K: '); readln(K); sum_all:=0; for i:=1 to K do begin sum:=0; repeat //write('Введиете элемент(конец набора = 0)');readln(A); A:=random(9); sum:=sum+1; until a = 0; writeln(sum-1); sum_all:=sum_all+sum-1; end; writeln('Всего наборов: ',sum_all); end.
автор: Zevsnet
Поделиться: