//PascalABC.NET версия 3.3
begin
arrrandom(100, -500, 500).Println.Max.Println;
end.
пример работы программы:
-227 -148 483 325 -183 -270 -242 -51 -494 -322 -189 -294 -367 438 -321 -74 -342 -342 -221 -20 1 179 -250 177 -457 438 -74 48 -161 411 148 -444 -207 -100 85 -342 -71 -16 309 -394 490 82 -45 -172 -144 -102 -444 364 -377 -75 -409 206 48 431 -64 94 -398 -195 281 -120 304 210 -391 -404 31 -246 414 233 -148 -480 498 174 -151 -328 -10 419 -276 423 -180 146 381 63 -75 415 320 443 9 -137 465 492 -444 -376 203 -71 -198 -220 -27 -142 297 -398
498
program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>