1)Var a: array [1..10] of integer;
pr,i:integer;
begin
pr:=1;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] mod 7 = 0 then
pr:=pr*a[i];
end;
writeln(pr);
end.
2)Var a: array [1..17] of integer;
count,i:integer;
begin
randomize;
count:=0;
for i:=1 to 17 do
begin
a[i]:=random(21)-10;
writeln(a[i]);
if a[i]>0 then inc(count);
end;
writeln(count);
end.
3)Var a: array of integer;
count,i,n,c:integer;
begin
readln(n);
count:=0;
Setlength(a,n+1);
c:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i]>5) and (i mod 2 =0) then
begin
inc(count);
c:=c+a[i];
end;
end;
writeln(c/count);
end.
4)Const N=35;
Var a: array [1..N] of integer;
i:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:=random(21)-5;
write(a[i]:4);
if (a[i] mod 10 = 5) then a[i]:=0
else a[i]:=1;
end;
writeln;
for i:=1 to N do
write(a[i]:4);
end.
Program kids;
var m,j,Summa:<em>integer</em>;
begin
writeln('На сколько мальчиков больше ?'); readln(m);
j:=15;
Summa:=j+(m+j);
writeln('В нашем классе ',Summa,' человек.');
readln;
end.
________
j - это сумма девочек, а m+j - это сумма мальчиков.
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
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
Var p,h,e,s,t,x: integer;
begin write('Введите стоимость проезда в 1 сторону: ');
readln(p);
write('Введите стоимость проживания в двухместном номере в сутки: ');
readln(h);
write('Введите стоимость питания в сутки: ');
readln(e);
write('Введите стоимость страховки: ');
readln(s);
write('Введите стоимость трансфера: ');
readln(t);
x:=p*2+h*7+e*7+s+t;
writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб');
<span>end.</span>
Потому что каждую минуту, каждый час, день, месяц и год люди узнают и придумывают что-то новое...дальше эта информация передаётся другим людям через устную и письменную речи. Более сообразительные люди начинают воплощать это в мечту или ставят какие то опыты.
Вывод: люди-очень умные существа и любая информация в их голове долго не задерживается :)
Как то так, надеюсь, что я чем то помогла! ;)