Цитата:
|
Сообщение от 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.
Правильно???если нет,то где ошибка?
|
Ну.... проверка на четность правильная. А так я что-то не соображу, что ты вообще хотел сделать.....