Question

Прошу помогите на Зачёте: Дано массив целых чисел A[N]. Проверьте, есть ли в нем отрицательные элементы. Если есть, найдите наибольшее i, при котором A[i]<0, иначе выведите сообщение.

Answer 1

Программа находит наибольшее отрицательное число из 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.

Answer 2

Напишите мне, каким образом должен отображаться массив ?
Иванов Иван Иванович это процедурой
Данные об студенте надо водить ?
И выводить относительно процедуры :
Студент:МПЕК; ФИО:Иванов Иван Иванович; СР.Б.С:n;
Я правильно понял ?

Answer 3

Сделал, все работает,но задача заставила подумать, где ты учишься ?

Answer 4

МИФИ, 1 ый курс

Answer 5

а где программа? :)