сформировать целочисленный массив из n элементов. Значение элементов вводится с ...

March 2022 1 12 Report

сформировать целочисленный массив из n элементов. Значение элементов вводится с клавиатуры. Найти произведение элементов с черными номерами. Pascal

Answers & Comments

elenaklon Var a:array[1..1000] of integer;
n,i,p:integer;
begin
write('Введите количество элементов массива (n<1000): ');
readln(n);
for i:=1 to n do readln(a[i]);
write ('Массив: ');
for i:=1 to n do write(a[i],' ');
writeln;
p:=1;
for i:=2 to n do
if i mod 2 = 0 then p:=p*a[i];
writeln('Произведение элементов с чётными номерами равно ',p);
readln
end.

0 votes Thanks 2

Answers & Comments

ch najdi modul znacheniya skorosti s kotoroj budet peremeshatsya yahta otnositeln

chto vy uznali o lidii charskoj

kakie znamenitye lyudi rabotali v zhurnale chizh

anglijskij yazyk heeeelp

anglijskij yazyk help pliz

help anglijskij yazykkkkk

1opredelit tip prostoe ili slozhnoe klass veshestv metall ili ne metall oks

pomogite pozhalujsta dayu 100 ballov1opredelit tip prostoe ili slozhnoe klass

tex]...

dany dejstvitelnye chisla a1an poluchit kvadratnuyu matricu poryadka n

рекомендуемые вопросы

Helpful Links

Helpful Social