|
program xxx;
var a: array [1..10] of real;
i : integer;
max: real;
begin
max:=0;
writeln (‘введи’);
for i:=1 to 10 do
readln(a[i]);
i:=0;
for i:= 1 to 10 do
if (a[i]<0) and (a[i]>max) then max:=a[i];
writeln (‘max=’,max);
end.
Мож, где запятые забыл или ещё какие мелочи - исправишь.
|