Найти в массиве минимальное число и получить новый массив - Turbo Pascal

Формулировка задачи:

Дан массив В (24). Найти в нем минимальное число и получить новый массив ,делением элементов исходного массива на это минимальное число . Оба массива отпечатать.

Код к задаче: «Найти в массиве минимальное число и получить новый массив - Turbo Pascal»

textual
const
n := 10;
var
i, min : Integer;
mas : Array[1..n] of integer;
begin
 
for i:=1 to n do
read(mas[i]);
 
min := mas[1];
 
for i:=1 to n do
if min > mas[i] then min := mas[i];
 
for i:=1 to n do
mas[i] := round(mas[i]/min);
 
дальше вывод
end;

15   голосов, оценка 3.733 из 5


СОХРАНИТЬ ССЫЛКУ