В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) номер минимального элемента массива
program zadacha;
var min,n: real;
a: array[1..10] of real;
i: integer;
begin
writeln (Введите элементы массива);
for i:=1 to 10 do
begin
write (a[,i,]=);
readln (a[i]);
end;
n:=1;
min:=a[i];
for i:=2 to 10 do
if min>a[i] then
begin
min:=a[i];
n:=i;
end;
writeln (Номер минимального элемента массива , n);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
