Задача на языке паскаль!

Задан массив С из 10 элементов. Найти номер первого из элементов массива С, имеющего нулевое значение. Если таких элементов нет, вывести соответствующее сообщение.

Question

Информатика

Кандидий

26 октября, 12:32

Задача на языке паскаль!

Задан массив С из 10 элементов. Найти номер первого из элементов массива С, имеющего нулевое значение. Если таких элементов нет, вывести соответствующее сообщение.

+2

Ответы (1)

Знаете ответ?

Эмка · Answer 1

Var i, n, k:integer; C:Array[1 ... 10] of integer;

begin

k:=0;

for i:=1 to 10 do begin

C[i]: = random (10) - 5;

write (C[i]:4) ;

if (C[i] = 0) and (k = 0) then begin

n: = i; k:=1;

end;

end;

write (' n=', n) ;

end.