Программа на TP. Не сложная программа, сначала пользователю предлагают выбрать цвет текста для работы, потом тип выбора массива, после чего программа находит наибольшее, наименьшее значение, а так же сумму.

Program Vectora;

uses crt;

Const f=10;

VAR A:array[1..f] of integer;

s,i, max, min: integer;

OP, OS: char;

BEGIN

textcolor(14);

clrscr;

writeln(‘Каким цветом вы хотите что бы на экране выводился текст? 1 — Синий, 2 — Зелёный, 3 — Голубой, 4 — Красный’);

writeln(‘5 — Фиолетовый, 6 — Коричневый, 7 — Светло-серый, 8 — Тёмно серый, 9 — Ярко синий’);

readln(OS);

Case OS of

‘1’ : textcolor(1);

‘2’ : textcolor(2);

‘3’ : textcolor(3);

‘4’ : textcolor(4);

‘5’ : textcolor(5);

‘6’ : textcolor(6);

‘7’ : textcolor(7);

‘8’ : textcolor(8);

‘9’ : textcolor(9);

end;

Writeln(‘Как вводить вектора? Автоматичеки(1) или вручную(2)’);

readln(OP);

Case OP of

‘1’ :Begin

randomize;

for I:=1 to f do

A[i]:=random(50);

end;

‘2’ :Begin

for I:=1 to f do

begin

write(‘Введите элемент массива ‘, i, ‘ = ‘);

readln(A[i]);

end;

end;

end;

write(‘Вектор А: ‘);

for i:=1 to f do

begin

write(a[i], ‘ ‘);

end;

writeln;

max:=A[1];

for i:=1 to f do

if A[i]>=max then max:=a[i];

writeln(‘Максимум = ‘, max);

min:=A[1];

for i:=1 to f do

if A[i]<=min then min:=a[i];

writeln(‘Минимум= ‘, min);

s:=A[1]+a[2]+a[3];

writeln(‘Сумма первых трёх элементов = ‘, s);

readln;

END.