Question

СРОЧНО! Помогите решить пожалуйста

1)Дан целочисленный массив из N элементов. Найти минимальный элемент массива.

2) Дан целочисленный массив из N элементов. Уменьшить все элементы в 5 раз.

Answer 1

Ответ:

1)

const n=10;

var

i,min:integer;

a:array[1..n] of integer;

begin

randomize;

//Заполним массив случайными числами

for i:=1 to n do

   a[i]:=random(100)-50;

//Выведем массив для просмотра

for i:=1 to n do

   write(a[i]:5);

//Найдем минимальный элемент    

min:=a[1];

for i:=2 to n do

if min>a[i] then min:=a[i];

writeln;

writeln ('Min=',min);

end.

2)

const n=10;

var

i:integer;

a:array[1..n] of real;

begin

randomize;

//Заполним массив случайными числами

for i:=1 to n do

   a[i]:=random(100)-50;

//Выведем массив для просмотра

for i:=1 to n do

   write(a[i]:6:2);

   

//Уменьшим все элементы в 5 раз

for i:=1 to n do

    a[i]:=a[i]/5;

//Выведем массив для просмотра

writeln;

for i:=1 to n do

   write(a[i]:6:2);

end.

Объяснение: