Написать программу, которая заполняет элементами массив по правилу: а (I) = (i^4/7i-2), выводит его элементы на экран с двумя знаками после запятой и затем выводит новый массив, в котором заменены на противоположные знаки элементов исходного массива. I=1,2,3 ... 10

Question

Дмитрий Абрамов

Информатика

5 декабря, 14:56

Написать программу, которая заполняет элементами массив по правилу: а (I) = (i^4/7i-2), выводит его элементы на экран с двумя знаками после запятой и затем выводит новый массив, в котором заменены на противоположные знаки элементов исходного массива. I=1,2,3 ... 10

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Alaman · Answer 1

Var a:array[1 ... 10]of Integer;

i, k:Integer;

p:LongInt;

begin

p:=1;

k:=0;

Writeln ('Сгенерированный массив:');

Randomize;

for i:=1 to 10 dobegina[i]:=Random (10) + 1; if a[i] mod 2=1 then p:=p*a[i] else k:=k+1;

Write (a[i],' ');

end;

Writeln;

Writeln ('Произведение нечетных:', p);

Writeln ('Количество четных:', k);

Readln;

end.