Составьте программу, которая заполняет массив А[1 ... 8] случайными целыми числами в диапазоне от 10 до 20. Замените все элементы массива меньше 15 их удвоенными значениями. Вывести на экран первоначальный и преобразованный массивы в строку

Для составления этой программы нам понадобится сам массив. Так как состоит он только из целых чисел, именно такой тип у него и будет:

var A:array [1 ... 8] of integer;

Чтобы его элементы были случайными, нам нужно использовать специальную функцию. Но в задаче есть диапазон, поэтому мы немного изменим эту функцию:

for i:integer:1 to 8 do

A[I] ≔ rand (10) + 10; - этой записью мы изменили работу функции. Теперь она будет создавать числа от нуля до 10, а мы к ним будем прибавлять еще 10, поэтому они не будут больше 20 и меньше 10.

for i:integer:1 to 8 do

if (A[i] < 15) then

A[I] ≔ A[i] * 2;

Выводим:

for i:integer:1 to 8 do

write (A[I]:5);