Определить порядковый номер 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.

Объяснение кода листинга программы

В этом коде:

  1. Объявляется переменная a типа t, которая является массивом из 50 элементов.
  2. Запрашивается количество элементов массива у пользователя (до 50).
  3. Заполняются элементы массива случайными числами от -15 до 0 с шагом 1.
  4. Выводятся все элементы массива.
  5. Поиском первого положительного элемента определяется его порядковый номер.
  6. Выводится сообщение с найденным номером.
  7. Код завершается.

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы