Дан массив целых чисел из 12 элементов. к сумме первых 8 прибавить произведение последних 7 элементов.

Var a: array[1..12] of integer; i,s,p : integer; begin for i: =1 to 12 do read (a[i]); s: =o; p: =1; for i: =1 to 8 do s: =s+a[i]; for i: =6 to 12 do p: =p*a[i]; write('искомый результат = ', s+p); end.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в.       в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п.     так как петя – троечник, то петя не с.     так как ваня – отличник, то ваня не в.     саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.

 

саша =в  петя=к  ваня=п  коля=с