Предмет: Информатика,
автор: vmalonosov
В массиве чисел А1,А2.....Аn найти минимальное по абсолютной величине число и его номер. Как записать в Паскале?
Ответы
Автор ответа:
0
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])<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])<min then beginmin:=A[i];k:=i;end;writeln();writeln('min=',min, ' N ', k);
end.
Приложения:

Похожие вопросы
Предмет: Математика,
автор: vorobei4iki
Предмет: Немецкий язык,
автор: tulitanna
Предмет: Қазақ тiлi,
автор: xxzzzss
Предмет: Обществознание,
автор: Karina120