Найти и вывести на экран номера всех отрицательных элементов, если таких нет, то сообщить об этом.

@djm1 · Регистрация: 21.05.2011

2. Дан одномерный массив. Найти и вывести на экран номера всех отрицательных элементов, если таких нет, то сообщить об этом.

@Pol Shon · 22.05.2011, 12:24

Pascal

Program otr;
Uses Crt;
var i,k,n: integer;
A: array [1..100] of integer;
begin
CLRSCR;
Writeln(' введите кол-во элементов');
Readln(n);
Writeln(' введите элементы');
For i:= 1 to n do begin
 Readln(A[i]);
 if A[i]<0 then  begin
 k:=k+1;
 Writeln('отрицательный элемент. его номер:',i);
                 end;
                 end;
if k=0 then writeln ('отрицательных элементов нет') else
   Writeln( ' кол-во отрицательных элементов =' , k);
end.

это если самостоятельно вводить числа в массив. тебе их как в него нужно положить? просто можно брать числа еще из файла.

@djm1 0 / 0 / 0 Регистрация: 21.05.2011 Сообщений: 19
		1
	Найти и вывести на экран номера всех отрицательных элементов, если таких нет, то сообщить об этом. 22.05.2011, 12:10. Показов 10230. Ответов 1 Метки нет (Все метки) 2. Дан одномерный массив. Найти и вывести на экран номера всех отрицательных элементов, если таких нет, то сообщить об этом. 0

Опции темы

Найти и вывести на экран номера всех отрицательных элементов, если таких нет, то сообщить об этом.

Решение