Создать массив из 20 случайных чисел в диапазоне от -30 до 0. Нечетные элементы возвести в квадрат и вывести на экран поиск массива.
Создать массив из 20 случайных чисел в диапазоне от -30 до 0. Нечетные элементы возвести в квадрат и вывести на экран поиск массива.
Гость
Ответ(ы) на вопрос:
Гостьconst n=20;
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(31)-30;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
if x[i] mod 2 <>0 then x[i]:=x[i]*x[i];
writeln('Измененный массив:');
for i:=1 to n do write(x[i],' ');
writeln;
end.
Не нашли ответ?
Похожие вопросы