В ПАСКАЛЕ !!!!!!!!!!!!!!!!! В массиве есть нулевые элементы. Выдать ** экран их номера.

Question

В ПАСКАЛЕ !!!!!!!!!!!!!!!!!
В массиве есть нулевые элементы. Выдать на экран их номера.

Answer 1

Var
A:array[1..10] of real;
i:integer;
Begin
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
    Read(A[i]);
Write('Номера нулевых элементов: ');
For i:=1 to 10 do
    if A[i]=0 then Write(i,' ')
End.

Comments

спасибо