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

Question

Информатика

Ларя

24 января, 03:09

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

+1

Ответы (1)

Знаете ответ?

Акся · 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.