Прошу на зачёте: дано массив целых чисел a[n]. проверьте, есть ли в нем отрицательные элементы. если есть, найдите наибольшее i, при котором a[i]< 0, иначе выведите сообщение.

264

305

Посмотреть ответы 2

Ответы на вопрос:

karnastia

Информатика

4,8(8 оценок)

Программа находит наибольшее отрицательное число из n чисел, так как рандом состоит из положительных и отр. чисел, не стал писать else. код кривой, но рабочий : ) program asd; uses crt; var a: array[1..100]of integer; i,n,max: integer; begin clrscr; writeln('vvedite kol-vo chisel: '); readln(n); for i: =1 to n do begin a[i]: =random(20)-10; write(' ',a[i]); end; max: =a[1]; for i: =2 to n do begin if (a[i]< 0) then begin if (a[i]< max) then max: =a[i] end; end; writeln; writeln('maksimalnoe chislo pri a[i]< 0 = ',max); end.