В задаваевом целочисленном векторе найти - Pascal

Узнай цену своей работы

Формулировка задачи:

1)В задаваевом целочисленном векторе найти: min+max 2)В задаваемом векторе a размерности n каждую a1 компоненту заменить на величину: i^2 Хотя бы первую задачу, очень нужно.

Решение задачи: «В задаваевом целочисленном векторе найти»

textual
Листинг программы
const
n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Исходный массив');
for i:=1 to n do
    a[i]:=random(10);
writeln('Итоговый массив');
for i:=1 to n do
    begin
    a[i]:=sqr(i);
    writeln(a[i]);
    end;
end.

Объяснение кода листинга программы

  1. Константа n равна 10.
  2. Объявляется массив a размера 10 типа integer.
  3. Объявляется переменная i типа integer.
  4. Выводится сообщение Исходный массив.
  5. Цикл от 1 до 10: для каждого значения i в массив a записывается случайное число от 0 до 9.
  6. Выводится сообщение Итоговый массив.
  7. Цикл от 1 до 10: для каждого значения i в массиве a записывается квадрат числа i и выводится его значение.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы