Question

Написать программу, которая запрашивает массив из N элементов, а затем делает все элементы массива на минимальный элемент. Протестировать программу на массивах размерностью 5 и 10 элементов

Answer 1

var i,N:integer;

       Min:real;

      mas:array[0..100]of real;

beegin

write('введите N');

read(N);

 

{for i:=1 to N do begin

mas[i]:=random(50);write(mas[i],'  ');end;

 

или
for i:=1 to N do

read(mas[i]);

for i:=1 to N do

write(mas[i],'  ');}

 

min:=mas[0];

for i:=0 to N do 

if min<mas[i] then min:=mas[i];

 

writeln;

for i:=1 to N do begin

mas[i]:=mas[i]/min;write(mas[i]);end;