Массив: Каждый элемент, больший 5, заменить его квадратом. - Free Pascal
Формулировка задачи:
Помогите пожалуйста с задачей. Заранее спасибо.
Каждый элемент больший 5, заменить его квадратом. Заполнить массив случайными целыми числами из [1,8]
Решение задачи: «Массив: Каждый элемент, больший 5, заменить его квадратом.»
textual
Листинг программы
for i:=1 to n do a[i]:=randomrange(1,8); ... for i:=1 to n do if a[i]>5 then a[i]:=sqr(a[i]); ...
Объяснение кода листинга программы
- Задание: Заменить каждый элемент массива, больший 5, на его квадрат.
- Создание массива a размером n с помощью цикла for i:=1 to n do a[i]:=randomrange(1,8);
- Создание массива a размером n с помощью цикла for i:=1 to n do a[i]:=sqr(a[i]);
- Проверка условия a[i]>5 с помощью if.
- Если условие выполняется, то присваивается новое значение a[i] равное квадрату a[i].
- Выполнение двух циклов for.