Алгоритм основной программы

vector (n,a,b,f)

s=sum(n,f)

mx=max(n,f)

	porjadok (n,f)

Таблица переменных

begin

clrscr;

write('Введите размерность вектора');readln(n);

write('Интервал значений от ');read(a);

write('до ');readln(b);

writeln;writeln(' ':25,’Исходные данные’);

writeln('Размерность вектора n = ',n);

writeln('Интервал [',a,',',b,']');writeln;

writeln(' ':26,'Результаты расчета');

randomize;

writeln('-----------------Часть 1---------------------');

writeln(‘Вектор F из ‘,n,’ элементов в интервале [‘,a,’,’,b,’], полученных’);

writeln(‘при помощи генератора случайных чисел’);

vector(n,a,b,f);

writevect(n,4,f);

writeln('-----------------Часть 2---------------------');

writeln('Сумма положительных элементов третьей четверти вектора');

s:=sum(n,f); writeln(‘ s=’,s);

writeln('-----------------Часть 3---------------------');

writeln('Наибольший элемент второй трети среди нечетных по номеру');

writevect(n,3,f);

mx:=max(n,f);writeln(‘ mx=’,mx);

writeln('-----------------Часть 4---------------------');

writeln(‘Вектор F с упорядоченными по убыванию квадратов значений’);

writeln(‘нечетными по номеру элементами второй половины’);

porjadok(n,f);

writevect(n,2,f);

writeln('---------------Конец задачи----------------');

end.

Не нашли, что искали? Воспользуйтесь поиском: