Написать програмы на паскале №1 в области 12 райнов. известны количество жителей каждого района (в тысячах человек) и плотность населения в нем (тыс. чел./ км2). определить общую площадь территории области. №2 известны результаты двух спортсменов-пятиборцев в каждом из пяти видов спорта в . определить сумму , полученных каждым спортсменом.

2.

vara1,a2,a3,a4,a5,a: integer; b1,b2,b3,b4,b5,b: integer; beginreadln (a1,a2,a3,a4,a5); readln (b1,b2,b3,b4,b5); a: =a1+a2+a3+a4+a5; b: =b1+b2+b3+b4+b5; writeln (a,' ',b); end.

1.  vara1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12: integer; b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12: integer; n: integer; beginreadln (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); readln (b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12); n: =a1*b1+a2*b2+a3*b3+a4*b4+a5*b5+a6*b6+a7*b7+a8*b8+a9*b9+a10*b10+a11*b11+a12*b12; writeln (n); end.

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end. 

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.