Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
Begin;
writeln('Площадь поверхности Земли=<span>510100000 км.^2);
writeln('Объём Земли=</span><span>1083 млрд. куб. км.');
writeln('Плотность Земли=</span><span>5,51 г/см^3');
end.</span>
Ответ:
А где сочинение? Прикрепи
1) Обычный
2) Полу уплотненный, полужирный
3) Курсивный
4) Подчёркнутый
5) Полу жирный и курсивный
6) Полу жирный и подчёркнутый
7) Подчёркнутый и курсивный
8) Полу жирный, подчёркнутый и курсивный
type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.