Эта программа находит максимальные и минимальные элементы массива x.

program min_max;
uses crt;
var x: array [1..10] of real;
i: integer; max, min: real;
begin clrscr;
for i: =1 to 10 do
begin
write('x(',i,')='); readln(x[i]);
end;
max: =x[1]; min: =x[1];
for i: =2 to 10 do
begin
if x[i]> max then max: =x[i];
if x[i]< max then min: =x[i];
end;
writeln('максимум= ',max,' минимум= ',min);
end.

нужно:
1. изменить ввод элементов массива x[i] с ввода вручную на ввод случайными числами из диапазона [10, 50)
2. вывести на печать все элементы массива, увеличив каждый элемент на минимальный.
! совсем не понимаю, как это

Машуничка12    1   22.12.2019 23:25    0