Составьте программу,которая заполняет массив а: [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его,возводя в квадрат все элементы с четными индексами

134

263

Посмотреть ответы 2

Ответы на вопрос:

75545

Информатика

4,4(14 оценок)

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.