Правильно ли составлена программа?

[Марина357]

Program lab143;
var A,С:array[1..n] of integer; i,nmin,min: integer;
Begin
  writeln ('Введите A'); for i:=1 to 10 do readln (A[i]); raedln;
  writeln ('Введите C'); for i:=1 to 10 do readln (C[i]); raedln;
  min:=(sqr(A[i])-sqr(C[i])); nmin:=1; i:=2;
  While i<=n do
  begin 
    if (sqr(A[i])-sqr(C[i])<=min) then begin min:=A[i]; nmin:=1; i:=i+1;
  end;
  writeln ('min=',min,'nmin',nmin); readln;
End.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Utkin]

raedln

readln от прочитать строку read line. Вон в предпоследней строке правильно написано.

While i<=n do

n не инициализированно. Чему оно равно в момент когда программа начнет выполнять эту строчку?

nmin:=1;

По логике программы nmin всегда будет равен 1.

[Smitt&Wesson]

Маришка. Тут есть правила оформления кода (как ни странно). Они придуманы не потому, что кто-то хочет повыделываться, а для того, что-бы сразу, визуально увидеть структуру вложености. Вот Utkin и Stilet, разбираются в Дельфине и могут прочитать код, написанный даже в одну строчку, а я - сишник. Тоже могу прочитать Си-код, написанный в одну строчку. Но, мне для понимания Вашего нужно проделать такие действия:
1. Скопировать.
2. Отформатировать по вложениям.
3. Просмотреть визуально.
4. Если что-то насторожило, скопипастить и откомпилить.
5. Если и это не помогло, уточнить у Вас и -> к П3.
6. Если всё тип-топ -> задача решена.

[Stilet]

Не понял я задание нифинта... Нужно в массиве экстремумы найти?

[Utkin]

Не, ниже. 12-е.

ЗЫ. Я бы отказался от энергосберегающих лампочек - от них глаза устают и вообще вредные они .

[Аватар]

Я бы отказался от энергосберегающих лампочек - от них глаза устают и вообще вредные они

А я бы не отказывался - польза очень чувствительна на счете за использованное электричество. А вред... Дык вообще вредно рождаться, и маме, и ребенку больно. А уж жить потом как вредно

[JUDAS]

Господа коллеги, с таким стажем и знаниями вы уже должны интуитивно понимать что хотят новички, а хотят они одно - решить за них задачу

Автору Марише

program lab143;

сonst
  N  = 10; // число элементов

var
   A,C : array[1..N] of integer;
   i, nmin,min: integer;

Begin
  writeln ('Введите A');
  for i:=1 to N do readln (A[i]);


  writeln ('Введите C');
  for i:=1 to N do readln (C[i]);

  nmin := 0;
  min := (sqr(A[i])-sqr(C[i]));
  i:=2;
  while i<=n do
  begin
    if (sqr(A[i])-sqr(C[i])<=min) then
    begin
      min:=A[i];
      nmin:=i;
    end;
    i:=i+1;
  end;
  if nmin=0 then
    writeln ('Значений меньше разницы квадратов первых элементов - НЕ НАЙДЕНО')
  else
    writeln ('min=',min,' nmin=',nmin);
  readln;
end.

[Utkin]

А я бы не отказывался - польза очень чувствительна на счете за использованное электричество. А вред... Дык вообще вредно рождаться, и маме, и ребенку больно. А уж жить потом как вредно

Да они стоят как вся экономия, а служат немного побольше.