Составить программу обработки массива K, состоящего из 20 элементов. Заполнить массив случайными числами в диапазоне
Вопрос посетителя
Составить программу обработки массива K, состоящего из 20 элементов. Заполнить массив случайными числами в диапазоне от -5 до 25. Все элементы массива К, значения которых находятся в интервале от -2 до 20 возвести в квадрат. Измененный массив вывести на экран.
Ответ эксперта
USES Crt;
VAR
K:ARRAY[0..20] OF INTEGER;
I:BYTE;
BEGIN
ClrScr; Randomize;
{ Заполнение массива случайными числами }
FOR I:=1 TO 20 DO Begin
K[I]:=Random(30)-5; Write(K[I]:3);
End; WriteLn;
FOR I:=1 TO 20 DO
IF (K[I]<20) AND (K[I]>-2) THEN K[I]:=K[I]*K[I];
WriteLn(‘Измененный массив’);
FOR I:=1 TO 20 DO
Write(K[I]:4);
END.