Объяснение:
<h2>
<em><u>1.</u></em></h2>
Если идёт дождь, то <em>асфальт будет мокрым</em><em>.</em>
Если в баке машины закончится бензин, то <em>машина не поедет.</em>
Если обед готов, то <em>можно кушать.</em>
Var a,s,p:real;
begin
a:=8.5;
s:=0;
while a<=40.9+0.005 do
begin
s:=s+a;
a:=a+0.1;
end;
writeln('s = ',s:6:2);
p:=1;
a:=1;
while a<=3+0.005 do
begin
p:=p*a;
a:=a+0.25;
end;
writeln('p = ',p:6:2);
if s>p
then writeln('Сумма больше')
else writeln('Произведение больше');
end.
Результат:
s = 8027.50
p = 304.54
Сумма больше
Program Massiv;
Uses Crt;
const n=10; // n - которое мы задали
var array[1..n] of integer;
var i:integer;
begin
clrscr;
write('Размер массива:',n,'Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i],' ');
end;
writeln;
write('Чётные элементы массива:');
for i:=1 to n do if (a[i] mod 2)=0 then write(a[i],' ');
readkey;
end.