1) В массиве из 11 действительных чисел, введённых с клавиатуры, найти номер первого положительного элемента и выдать на экран этот элемент или сообщение о том, что в массиве положительных элементов нет. прошу вас решите!
1) В массиве из 11 действительных чисел, введённых с клавиатуры, найти номер первого положительного элемента и выдать на экран этот элемент или сообщение о том, что в массиве положительных элементов нет.
прошу вас решите!
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..11] of real;
t,i:integer;
begin
for i:=1 to 11 do
read(a[i]);
for i:=1 to 11 do
if a[i]>0 then begin t:=i; break; end;
if t<>0 then writeln(a[t])
else writeln('Not found');
end.
Не нашли ответ?
Похожие вопросы