PASCAL:в заданном массиве подсчитать число нулевых элементов и вывести на экран их индексы
PASCAL:в заданном массиве подсчитать число нулевых элементов и вывести на экран их индексы
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 30;
var
a: array[1..n] of integer;
i, k, e: integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(20) - 10;
write(a[i]:4)
end;
writeln;
k := 0;
write('Индексы нулевых элементов: ');
for i := 1 to n do
if a[i] = 0 then
begin
k := k + 1;
write(i:3)
end;
writeln;
writeln('Количество нулевых элементов: ', k)
end.
Тестовое решение:
Исходный массив
8 -8 0 9 -1 0 4 -6 -8 2 4 7 4 -5 4 2 -1 6 -1 5 5 6 -6 -6 -1 -4 0 -7 -8 -3
Индексы нулевых элементов: 3 6 27
Количество нулевых элементов: 3
Не нашли ответ?
Похожие вопросы