program u1;
var max1,max2,k:longint;
begin
readln (k);
max1:=k;
max2:=k;
repeat
readln (k);
if k>max1 then begin
max2:=max1;
max1:=k;
until k<>0;
writeln (max2);
end;
end.
Выводит ошибку в 12 строчке "встречено until, а ожидалось ; "
Car = record
X, Y : integer;
Mycar: Picture;
Speed : byte;
end;
bgr1,bgr2,bgr3: Picture;
Avto : Car;
procedure keydown(Key: integer);
begin
case Key of
VK_Left: if (AVTO.X > 0) then AVTO.X := AVTO.X — AVTO.Speed;
VK_Right: if (AVTO.X 0) then AVTO.Y := AVTO.Y — AVTO.Speed;
VK_DOWN: if (AVTO.Y window.Height :=540;
bgr1 := Picture.Create(‘E:/data/Background/bgr_1.jpg’);
bgr2 := Picture.Create(‘E:/data/Background/bgr_2.jpg’);
bgr2 := Picture.Create(‘bgr.png’);
bgr3 :=Picture.Create(‘E:/data/Background//bgr_3.png’);
Avto.Mycar := Picture.Create(‘data/Car/MyCar_L.png’);
Avto.X := 3;
bgr2.Save(‘bgr.png’);
repeat
bgr2.Load(‘bgr.png’);
bgr2.TransparentColor := clred;
bgr2.Transparent :=True;
for i:= 1 to 10 do
for j:= 1 to 10 do
bgr2.SetPixel(AVTO.X+i,AVTO.Y+J,clRed);
bgr1.Draw(0, 0);
bgr2.Draw(0, 0);
bgr3.Draw(0, 0);
После констант начали описывать переменные, а об этом компилятору забыли сказать:
cоnst n=5; ← константы
j: array [1..n] of real; ← переменные
ну компилятор где-то встретил точку с запятой, а по синтаксису там должно быть = , тебе компилятор даже номер строки пишет.
program xxx;
const n=5;
var j: array [1..n] of real;
a,t,i,n,min:integer;
i: array [1..n] of real;
begin
writeln (‘Введи целочисленый массив из 25 элеметов’);
for i:=1 to 25 do
begin
writeln (‘A (‘, i ,’)=’);
readln (A(i));
end;
t:=25;
i:=0;
for i:=1 to 25 do
begin
if (t>0) then
t:=25-n;
min:=a[i+5];
for j:=1 to n do
begin
if (min)