ошибки

[Arcueid1691]

мммм... он массив запрашивает(в отличие от начала), а максимумы те же 9 и 10. Не вижу где инициализацию сделать.

uses crt;
var
i : integer;
m1,m2: integer;
a: array[1..10] of integer;

begin
clrscr;
m1 := -1;
m2 := -1;
for i:=1 to 10 do //вот массив
 a[i] := i;
 readln;                 

for i:=1 to 10 do begin
 IF (m1=-1) or (a[m1]<a[i]) then m1:=i;  //вот поиск
  end;

 writeln(a[m1]);
  for i:=1 to 10 do begin  for i:=1 to 10 do
 if ((i<>m1) and ((m2=-1) or (a[m2]<a[i]))) then m2:=i; // 2-ой поиск
  end;
  writeln(a[m2]);
readln;
end.

[Sazary]

Сообщение от Arcueid1691

он массив запрашивает(в отличие от начала), а максимумы те же 9 и 10. Не вижу где инициализацию сделать.

Повторяю: он у вас не запрашивает массив, а инициализирует числами от 1 до 10.
Инициализация происходит здесь:

for i:=1 to 10 do //вот массив
 a[i] := i;

А вот это:

 readln;

выполнится уже после цикла. И при этом ничего никуда не введется. Программа просто подождет, пока вы не нажмете enter и продолжит работу с массивом чисел от 1 до 10.

Так надо:

for i:=1 to 10 do
 readln(mas[i]);

[Arcueid1691]

теперь понятно, огромное Вам спасибо за Ваше время. Благодаря Вам я хоть чуток в паскале разобралась.

[abcdefg]

program lalala;
var N, k, i: integer;
X, A: array [1..20] of integer;
begin
write('vvedite N=');
readln(N);
for i:=1 to N do
begin
write('X[',i,']=');
readln(X[i])
end;
for i:=1 to N do
begin
if X[i]>0 then
X[i]:=A[k];
A[k]:=1;
end;
write(X[k])
end.

выдает ошибку:
выход за границы диапазона

что нужно исправить? а то я сильно туплю

[nastjamihneva]

Что значит ошибка синтаксиса???

[Stilet]

Одна тема - Один автор!