В задаваевом целочисленном векторе найти - 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.
Объяснение кода листинга программы
- Константа
n
равна 10. - Объявляется массив
a
размера 10 типа integer. - Объявляется переменная
i
типа integer. - Выводится сообщение
Исходный массив
. - Цикл от 1 до 10: для каждого значения
i
в массивa
записывается случайное число от 0 до 9. - Выводится сообщение
Итоговый массив
. - Цикл от 1 до 10: для каждого значения
i
в массивеa
записывается квадрат числаi
и выводится его значение.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д