Написать программу в Pascal ABC используя операторы цикла WHILE...DO и REPEAT...UNTIL:заменить последний элемент массива минимальным (размерность массива =10)
Answers & Comments
OrenPadoNok
Var A: array [1..10] of integer; min,i:integer; begin i:=1 while i<11 do begin readln(A[i]); i:=i+1; end; i:=1; n:=A[1]; repeat if min>A[i] then min:=A[i] i:=i+1; until I=10; A[10]:=min; end
1 votes Thanks 2
Артем2017
программа не выводит на экран результат!
Answers & Comments
A: array [1..10] of integer;
min,i:integer;
begin
i:=1
while i<11 do
begin
readln(A[i]);
i:=i+1;
end;
i:=1;
n:=A[1];
repeat
if min>A[i] then
min:=A[i]
i:=i+1;
until I=10;
A[10]:=min;
end
While I<11 do
While i<11 do
begin
Write(A[i],' ');
i:=i+1;
end: