ПАСКАЛЬ! ПОМОГИТЕ, СРОЧНО! Задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. В этом массиве: 1. Найти минимальный элемент и увеличить его на 100. 2. Найти максимальный элемент и поменять его ме...
ПАСКАЛЬ! ПОМОГИТЕ, СРОЧНО!
Задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. В этом массиве:
1. Найти минимальный элемент и увеличить его на 100.
2. Найти максимальный элемент и поменять его местами с первым элементом.
3. Найти минимальный и максимальный элемент в числовом массиве из 10 элементов, заданных с клавиатуры. Поменять их местами.
Ответ(ы) на вопрос:
1,2 задание
var
a:array [1..9] of real;
i,k:integer;
j:real;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=(random(410)+100)/10;
write(a[i],' ');
end;
writeln;
writeln('Массив после увелечения минимального элемента на 100:');
k:=1;
for i:=2 to 9 do
if a[i]a[mx] then mx:=i;
write(a[i],' ');
end;
i:=a[mx];
a[mx]:=a[mn];
a[mn]:=i;
writeln;
writeln('Массив после престановки:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.
Не нашли ответ?
Похожие вопросы