1. Сформировать массив из 10 целых чисел случайным образом из [20;100], ** экран.2....

Question

1. Сформировать массив из 10 целых чисел случайным образом из [20;100], на экран.2. Четные элементы заменить на число 3, а нечетные на -3, вывести на экран.3.Элементы, стоящие на четных местах 3, на нечетных -3, на экран.П.С я настолько глуп в информатике, что даже вопроса не понял. Помогите, люди добрые!​

Answer 1

1_2.

const n=10;

var a:array[1..n] of integer;

i:integer;

begin

randomize;

writeln('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(81)+20;

write(a[i],' ');

end;

writeln;

writeln('Полученный массив:');

for i:=1 to n do

begin

if a[i] mod 2=0 then a[i]:=3 else a[i]:=-3;

write(a[i]:3);

end;

writeln;

end.

Пример:

Исходный массив:

49 25 50 90 82 20 71 25 57 45  

Полученный массив:

-3 -3  3  3  3  3 -3 -3 -3 -3

1_3.

const n=10;

var a:array[1..n] of integer;

i:integer;

begin

randomize;

writeln('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(81)+20;

write(a[i],' ');

end;

writeln;

writeln('Полученный массив:');

for i:=1 to n do

begin

if i mod 2=0 then a[i]:=3 else a[i]:=-3;

write(a[i]:3);

end;

writeln;

end.

Пример:

Исходный массив:

85 29 99 27 80 70 70 58 78 46  

Полученный массив:

-3  3 -3  3 -3  3 -3  3 -3  3