Program morningglory;
uses crt;
var y,i:integer;
P:=1;
begin
for i:=100 to 999 do
if i mod 7=3 then
begin
P:=P*i);
end;
writeln ('Произведение чисел, дающих при делении на 7 остаток 3 =',P);
end.
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
DIM A(15)
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Если нужно увидеть массив, можно дополнить блоком вывода
FOR I = 1 TO 15
PRINT A(I)
NEXT I
Ну, а если явным образом вписывать нули, то тогда так
DIM A(15)
FOR I = 1 TO 15 STEP 2
A(I) = 0
NEXT I
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
1.
Program Program1;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
k:=k+a[i];
end;
Writeln('Сумма элементов массива: ',k);
end.
2.
Program Program2;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
inc(k);
end;
Writeln('Количество элементов массива: ',k);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
Б) остольные не верны. Возможно А), но больше Б)