В ПАСКАЛЕ !!!!!!!!!!!!!!!!! В массиве есть нулевые элементы. Выдать на экран их номера.
В ПАСКАЛЕ !!!!!!!!!!!!!!!!!
В массиве есть нулевые элементы. Выдать на экран их номера.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы