1)Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все нечетные элементы, начиная с конца. Вычислить их произведение
2)Вывести на экран элементы массива, стоящие на четных местах, вычислить их сумму (Вмассиве 20 элементов, заполнен случайными числами.)
3)Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 .Вывести на экран, посчитать количество положительных чисел
2)Вывести на экран элементы массива, стоящие на четных местах, вычислить их сумму (Вмассиве 20 элементов, заполнен случайными числами.)
3)Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 .Вывести на экран, посчитать количество положительных чисел
More Questions From This User See All
Answers & Comments
1)uses crt;
var a:array [1..10] of integer;
i,n,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do begin read(a[i]); end;
t:=1;
for i:=n downto 1 do begin
if a[i] mod 2=1 then begin write(a[i],' '); t:=t*a[i]; end;
end;
writeln('Произведение нечетных элементов=',t);
readln;
end.
2) uses crt;
var a:array [1..20] of integer;
i,n,t:integer;
begin
randomize;
clrscr;
n:=20;
for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end;
t:=0;
for i:=1 to n do begin
if i mod 2=1 then begin write(a[i],' '); t:=t+a[i];
end;
end;
writeln('Сумма четных элементов=',t);
readln;
end.
3)uses crt;
var a:array [1..20] of integer;
i,n,t:integer;
begin
randomize;
clrscr;
n:=20;
for i:=1 to n do begin a[i]:=random(50)-random(50); write(a[i],' '); end;
t:=0;
for i:=1 to n do begin
if a[i]>0 then begin t:=t+1; end;
end;
writeln('Кол-во положительных элементов=',t);
readln;
end.