Найти количество элементов массива.
Найти произведения положительных чисел массива.
Pascal.

Особенности интерфейса ОС Windows

Так что такое Windows? Это операционная система, которая используется на многих компьютерах. С вероятность девять к одному, что Вы, человек, который читает данную заметку, являетесь пользователем операционной системы Windows. Сейчас существует много операционных систем в мире, у всех их одно предназначение, но различий масса. Приведу названия некоторых из них:

Windows.

Linux.

Mac.

Unix.

Это ДАЛЕКО не весь список операционных систем. А как вы думаете, что лежит в основе управления смартфонами? Да, да, именно операционные системы, и их также существует несколько разновидностей.

Те названия ОС, что я привел выше – не полные, так как имеют несколько версий. Одни различаются по времени создания, другие по функциональности. Одной только Windows, существует около десяти штук.

Удач

Const n=5;
var
i,q:integer;
a:array [1..n] of integer;
b:array [1..n] of integer;
c:array [1..50] of integer;
begin
writeln ('Заполните первый массив');
for i:=1 to n do
read (a[i])                      ;
writeln ('Заполните второй массив') ;
for i:=1 to n do
read (b[i]);
for i:=1 to n do begin
if i mod 2<>0 
then begin q:=q+1;
c[q]:=a[i]; 
q:=q+1;
c[q]:=b[i]; 
end; 
end;
for i:=1 to n do 
if b[i]>0 
then begin   
q:=q+1;   
c[q]:=b[i]; 
 end; 
if q=0 
then writeln ('условие не выполняется') 
else begin
for i:=1 to q do
write (' ',c[i]);
end
end.

P.s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение.
P.p.s. Программа написана на Pascal ABC.