В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) номер...

0 голосов
45 просмотров

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) номер минимального элемента массива


задал (14 баллов) по предмету Информатика
1 Ответ
0 голосов
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.
решение Одаренный (4.7 тыс. баллов)
...