Написать программу в Pascal ABC чтобы полностью работала, которая ввод данных

+ 0 -

Nana05

18 марта 2014 г., 10:09:23 (10 лет назад)

var
  i,min:integer;
  a:array[1..10]of integer;
begin
i:=1;
while i<11 do
  begin
  readln(a[i]);
  if i=1 then min:=a[1];
  if a[i]<min then min:=a[i];
  i:=i+1;
  end;
writeln('Исходный массив:');
i:=1;
repeat
  write(a[i],' ');
  i:=i+1;
  until i>10;
a[10]:=min;
writeln;
writeln('Измененный массив:');
i:=1;
repeat
  write(a[i],' ');
  i:=i+1;
  until i>10;
end.

+ 0 -

фёрби

18 марта 2014 г., 12:15:10 (10 лет назад)

Элементы с клавиатуры вводить или автоматически заполнить?

+ 0 -

Dvoesnik

18 марта 2014 г., 14:22:29 (10 лет назад)

Последний эл-т просто заменить на минимальный, или поменять с ним местами?

+ 0 -

Permyakova0203

18 марта 2014 г., 16:24:58 (10 лет назад)

с клавиатуры писать любые числа

+ 0 -

Alenat2010

18 марта 2014 г., 18:46:40 (10 лет назад)

просто заменить