Порфирий
7 год назад
В массиве чисел А1,А2.....Аn найти минимальное по абсолютной величине число и его номер. Как записать в Паскале?
ОТВЕТЫ
Bebicav
Jul 11, 2019
Program zadacha;
varA: array[1..10000] of integer;i,n,min,k: integer;
beginmin:=0;writeln(vvedite n);readln(n);for i:=1 to n do beginA[i]:=random(10000)-5000;write(A[i]:6);end;
min:=abs(A[1]);k:=1;for i:=1 to n doif abs(A[i])lt;min then beginmin:=A[i];k:=i;end;writeln();writeln(min=,min, N , k);
end.
varA: array[1..10000] of integer;i,n,min,k: integer;
beginmin:=0;writeln(vvedite n);readln(n);for i:=1 to n do beginA[i]:=random(10000)-5000;write(A[i]:6);end;
min:=abs(A[1]);k:=1;for i:=1 to n doif abs(A[i])lt;min then beginmin:=A[i];k:=i;end;writeln();writeln(min=,min, N , k);
end.
184
Смежные вопросы:
