В массиве B1, B2, ... Bn найти первое положительное число и напечатать его номер. Язык програмирования ПАСКАЛЬ
В массиве B1, B2, ... Bn найти первое положительное число и напечатать его номер. Язык програмирования ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
Гостьprogram XXX;
var i, n, k : integer;
b : array [1..100] of real;
begin
write ('введите n=');
readln(n);
write ('введите массив b :');
for i:=1 to n do
read(b[i]);
k:=0;
i:=1;
while (i<=n) and (k=0) do
if b[i]>0 then k:=i else i:=i+1;
if k=0 then write('положительных элементов - нет')
else write('номер первого положительного элемента-', k )
end.
Не нашли ответ?
Похожие вопросы