СРОЧНО! Помогите решить пожалуйста
1)Дан целочисленный массив из N элементов. Найти минимальный элемент массива.
2) Дан целочисленный массив из N элементов. Уменьшить все элементы в 5 раз.
Ответы
Ответ дал:
0
Ответ:
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.
Объяснение:
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад
8 лет назад