Пацаны что тут не так ошибку выдаëт в конце самом, пишет типо встречено. а ожидалось;
program dz;
var
I, x, s: integer;
a: array[1..10] of integer;
begin
randomize;
for i:= 1 to 10 do;
begin
a[i]
:= random (10..50);
write('al', i,']=', a[i]);
begin
x := 25;
begin
:= s+a[i]:
if a [i]>a [x] then s
writeln('s=', 3);
end. ​

myrrr14    1   20.12.2020 17:43    0