Дан массив x(10). Найти номер min элемента массива. Умножить на этот индекс все элементы.
Дан массив x(10). Найти номер min элемента массива. Умножить на этот индекс все элементы.
Гость
Ответ(ы) на вопрос:
Гостьvar
n, i, mn:integer;
a:array [1..10] of integer;
begin
writeln('vvedite massiv');
for i:=1 to 10 do
readln(a[i]);
writeln('Ishodnii massiv');
for i:=1 to 10 do
write(a[i],' ');
writeln();
mn:=1;
for i:=1 to 10 do
if a[mn]>a[i] then mn:=i;
for i:=1 to 10 do
a[i]:=a[i]*mn;5
writeln('Massiv posle obrabotki');
for i:=1 to 10 do
write(a[i],' ');
writeln();
end.
Не нашли ответ?
Похожие вопросы