[Future]

SysUtils;

Код:

 var A:array [1..10] of integer;
 i:integer;
 min:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  for i:=1 to 10 do;
  write('a[' ,i, ']=');
  read(a[i]);
  min:=a[1];
  for i:=2 to 10 do;
  if a[i]< min then
  begin
  min:=a[i];

  end;
  end.
       var a: integer;
begin
  write('Введите a: ');
  read(a);
  if a mod 2 = 0 then
    write('Это четное число');
  
end.

Админ: Теги, теги и еще раз теги!

Правильно???если нет,то где ошибка?