Ответы
Ответ дал:
0
program massiv;
var i,min: integer;
a: array[1..10] of integer;
begin
writeln ('Введите элементы массива');
for i:=1 to 10 do
begin
write ('a[',i,']-');
readln (a[i]);
end;
min:=a[i];
for i:=2 to 10 do
if min>a[i] then
begin
min:=a[i];
end;
writeln ('Наименьший элемент в массиве ', min);
end.
var i,min: integer;
a: array[1..10] of integer;
begin
writeln ('Введите элементы массива');
for i:=1 to 10 do
begin
write ('a[',i,']-');
readln (a[i]);
end;
min:=a[i];
for i:=2 to 10 do
if min>a[i] then
begin
min:=a[i];
end;
writeln ('Наименьший элемент в массиве ', min);
end.
Ответ дал:
0
min:=A[1];
for i:=1 to 10 do
if min<A[i] then min:=A[i];
for i:=1 to 10 do
if min<A[i] then min:=A[i];
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад