Pascal.Составьте программу замены местами в массиве B(N) первого положительного и минимального элементов. Спасибо заранее
Pascal.
Составьте программу замены местами в массиве B(N) первого положительного и минимального элементов. Спасибо заранее
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]
Не нашли ответ?
Похожие вопросы