Помогите решить в паскале!!!Даны пять чисел, каждое из которых по модулю не превышает...

Question

Помогите решить в паскале!!!
Даны пять чисел,
каждое из которых по модулю не превышает ста. Вычислить максимум среди
отрицательных из них.

Answer 1

Var a:array[1..5] of real;
b,c:integer;
max:real;
begin
c:=0;
max:=-100;
writeln('Введите числа');
for b:=1 to 5 do
begin
readln(a[b]);
if (a[b]<0)and (a[b]>max) then begin
max:=a[b];
c:=c+1;
end;
end;
if c>0 then writeln('Максимум среди отрицательных чисел равняется ',max)
else writeln('Нет отрицательных чисел');
end.

Comments

Спасибо, только у меня вопрос, а что означает эта запись

---

if (a[b]<0)and (a[b]>max)

---

Если число меньше 0 и больше текущего максимума

---

А это можно как-нибудь по-другому записать?

---

без [b]

---

Я делал через массив,поэтому записать можно только так