Упражнение 1. Найти максимальный и минимальный элементы массива x(n).
1. Наберите текст программы:
Ый вариант
Program din_mas1;
type massiw=array [1..150] of real;
var x:^massiw;
i, n: integer; max, min: real;
Begin
new(x); {Выделяем память под динамический массив из 150 вещественных чисел}
writeln (′Введите размер массива′); readln(n);
for i:=1 to N do
Begin
write (′x(′, i, ′)=′); readln(x^[i]);
end;
max:=x^[1]; min:=x^[1];
for i:=2 to N do
Begin
if x^[i] > max then max:=x^[i];
if x^[i] < min then min:=x^[i];
end;
writeln (′максимум= ′, max:1:4, ′минимум= ′, min:1:4);
dispose(x); {Освобождаем память}
End.
Ой вариант
Program din_mas2;
type massiw=array [1..150] of real;
var x:^massiw;
i, n: integer; max, min: real;
Begin
writeln (′Введите размер массива′); readln(n);
getmem (x, n*sizeof(real)); {Выделяем память под n элементов массива}
for i:=1 to N do
Begin
write (′x(′, i, ′)=′); readln(x^[i]);
end;
max:=x^[1]; min:=x^[1];
for i:=2 to N do
Begin
if x^[i] > max then max:=x^[i];
if x^[i] < min then min:=x^[i];
end;
writeln (′максимум= ′, max:1:4, ′минимум= ′, min:1:4);
freemem (x, n*sizeof(real)); {Освобождаем память}
End.
2. Проанализируйте работу программ
3. Запустите программы на выполнение и проверьте их работу:Ctrl-F9
4. Для просмотра результатов выполненных программ необходимо нажать:Alt-F5
5. Сохраните программы на своем диске:<F2> A:\P12PR1и A:\P12PR2соответственно
3. Выполнить самостоятельно:
