const N = 10;var arr: array[1..N] of integer; i, count: integer;begin for i := 1 to N do begin Write('Введите ', i, '-й элемент массива: '); Readln(arr[i]); if (arr[i] = 0) then count := count + 1; end; Writeln('Количество нулевых элементов: ', count);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку