Составьте программу вычисления в одномерном массиве минимального элемента и его номера.
Составьте программу вычисления в одномерном массиве минимального элемента и его номера.
Гость
Ответ(ы) на вопрос:
Гость1)
var
a: array [1..100] of longint;
i,j,k,n:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
k:=a[1]; j:=1;
for i:=1 to n do
if a[i]
Гостьuses crt;
const N=10;
var a:array [1..N] of integer;
x,y,min:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
end;
min:=a[1];
y:=1;
for x:=1 to N do
if a[x]
Не нашли ответ?
Похожие вопросы