Найти и вывести наименьший номер отрицательного элемента массива

@Возбуждающая · Регистрация: 29.03.2011

Author24 — интернет-сервис помощи студентам

дан вещественный массив из 50 элементов, элементы массива могут принимать произвольные значения. необходимо найти и вывести наименьший номер отрицательного элемента массива , или сообщение что такого элемента нет.

Комментарий модератора

Давайте темам осмысленные и понятные названия, отражающие суть задачи.

@stimo15 · 30.10.2012, 18:48

Pascal

uses crt;
const n=5;
var a:array [1..N] of real;
    min:byte;
    i:byte;
begin
clrscr;
for i:=1 to n do
 begin
  write('A[',i,']=');
  readln(a[i]);
 end;
 
for i:=1 to n do
 begin
    if a[i]<0 then min:=i
    else
    min:=100;
    break;
 end;
 
if min<>100 then writeln('Min nomer otric=',min) else writeln('Net otric elementov');
readkey
end.

	30.10.2012, 18:48

Найти и вывести наименьший номер отрицательного элемента массива

Решение