Ответы
Ответ дал:
0
program raf105;
var i,b,min:integer;
a:array[1..10] of integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (i=1) or (a[i]<min)
then min:= a[i];
end;
a[8]:= min;
writeln('Вывод:');
for i:=1 to 10 do
writeln('[',i,'] ',a[i]);
end.
Язык программирования PascalABC
Ответ дал:
0
Язык програмирования PASCALABC
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад