Program krab52;
uses crt;
const
n=10;
var
a:array [1..n] of integer;
i,max,min:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
{заполняем массив}
for i:=1 to n do
begin
a[i]:=random(101);
write (a[i]:4);
end;
writeln();
{ищем макс и мин}
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
{выводим результат}
writeln();
writeln(' Максимальный элемент ',max);
writeln(' Минимальный элемент ',min);
writeln(' Размах между максимальным и минимальным элементами ',max-min);
end.
uses crt; {подключение модуля crt}
var {описание переменных}
a,b,c:array [1..100] of integer;
i:integer;
begin
write('Введи количество элементов массива: '); read(i); {вывод текста на экран и чтение вводимых данных}
clrscr; {очистка экрана}
writeln('Первый массив: '); {вывод текста на экран}
for i:=1 to i do {цикл}
begin
a[i]:=random(10); {значения первого массива от 0 до 9}
b[i]:=random(10)-10; {значения второго массива от -10 до -1}
if i mod 2=0 then c[i]:=b[i] {четные элементы третьего массива}
else c[i]:=a[i]; {нечетные элементы третьего массива}
write(a[i]:4); {вывод на экран первого массива}
end; {конец цкла}
writeln; writeln('Второй массив'); {вывод текста на экран}
for i:=1 to i do {цикл}
write(b[i]:4); {вывод второго массива на экран}
writeln; writeln('Третий массив:'); {вывод текста}
for i:=1 to i do {цикл}
write(c[i]:4); {вывод третьего массива}
end.
