Определить порядковый номер 1-го положительного элемента массива А - Pascal
Формулировка задачи:
Код
всё тут сделано но нужно чтобы не все положительные элименты, а нужно чтобы только 1-ый положительный элимент выводил, а остальные нет!
как это сделать ?
Решение задачи: «Определить порядковый номер 1-го положительного элемента массива А»
textual
Листинг программы
program massiv; uses crt; const n=50; type t=array [1..n] of integer; var a:t; i:integer; m:integer; begin clrscr; randomize; write('введите кол-во элементов:'); readln(m); for i:=1 to m do a[i]:=random(20)-15; for i:=1 to m do writeln('a[',i,']=',a[i]); for i:=1 to m do begin if a[i]>0 then begin writeln('номер первого положительного:',i); break; end; end; end.
Объяснение кода листинга программы
В этом коде:
- Объявляется переменная
a
типаt
, которая является массивом из 50 элементов. - Запрашивается количество элементов массива у пользователя (до 50).
- Заполняются элементы массива случайными числами от -15 до 0 с шагом 1.
- Выводятся все элементы массива.
- Поиском первого положительного элемента определяется его порядковый номер.
- Выводится сообщение с найденным номером.
- Код завершается.