Составьте программу для ввода с клавиатуры 10 чисел и вывода количества нулей сред

Составьте программу для ввода с клавиатуры 10 чисел и вывода количества нулей среди них
Гость
Ответ(ы) на вопрос:
Гость
Program art; var    a: array[1..10] of integer;    i,k: integer; begin   writeln('Введите 10 чисел:');   for i:=1 to 10 do  readln(a[i]);   k:=0;     for i:=1 to 10 do     if a[i]=0 then k:=k+1;   writeln('Количество нулей:',k); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы