составьте программу,которая заполняет массив А:[1..10] ...
составьте программу,которая заполняет массив А:[1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его,возводя в квадрат все элементы с четными индексами
Есть ответ
17.12.2022
311
Ответ
Program Program1;vara:array [1..10] of integer;i:integer;beginrandomize;Writeln('Исходный массив: ');for i:=1 to 10 dobegina[i]:=random(10)+1;writeln('a[',i,']=',a[i]);end;for i:=1 to 10 doif i mod 2 = 0 then a[i]:=sqr(a[i]);Writeln('Преобразованный массив: ');for i:=1 to 10 dowriteln('a[',i,']=',a[i]);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
