Боря, витя, гриша и егор встретились на всероссийской олимпиаде по информатике. приехали из разных городов: москвы, омска, санкт-петербурга и кирова. известно, что боря жил в одной комнате с мальчиком из кирова и ни один из этих двух мальчиков никогда не был ни в москве, ни в санкт-петербурге. гриша играл в одной команде с мальчиком из москвы, а вечерами к ним заходил приятель из кирова. егор и мальчик из москвы увлекались игрой в шахматы. кто из кто из откуда приехал?

Известно что Боря жил в одной комнате с мальчиком из Кирова и ни один из этих мальчиков не был в Москве, ни в Санкт-Петербурге, то есть Боря был не из Москвы, не из Питера и не из Кирова, остаётся-Омск.
Гриша играл в одной команде с мальчиком из Москвы, а вечерами к ним заходил мальчик из Кирова, значит, точно знаем, что Гриша был не из Москвы, не из Кирова, остаются Питер и Омск, но мы уже установили, что из Омска был-Боря, получается, что Гриша был из Питера. 
Егор и мальчик из Москвы увлекались игрой в шахматы, значит, Егор был точно не из Москвы, и при этом мы знаем, что Омск и Питер уже заняты. Остался Киров У нас остался один город Москва и один мальчик, которого зовут Витя, значит, Витя был из Москвы.

Вывод:
Витя - Москва
Боря - Омск
Гриша - Санкт-Петербург
Егор - Киров.

1) Program n1; 
var n,i:integer; 
t:array[1..100] of real; 
a,b:real; 
begin 
readln(n); 
readln(a); 
readln(b); 
for i:=1 to n do 
begin 
t[i]:=(b-a)/n; 
write(t[i],'  '); 
end; 
end.
2) Program n1; 
var a:array[1..100] of integer; 
n,i:integer; 
k:real; 
begin 
read(n); 
k:=0; 
for i:=1 to n do 
read(a[i]); 
for i:=1 to n do 
if a[i] mod 2 <> 0 then 
k:=k+1; 
writeln; 
writeln('кол-во нечет. чисел равно ',k,''); 
end.
6) Program n1; 
var a:array[1..100] of real; 
i,n:integer; 
s,sr:real; 
begin 
read(n); 
for i:=1 to n do 
read(a[i]); 
s:=0; 
sr:=0; 
for i:=1 to n do 
s:=s+a[i]; 
sr:=s/n; 
writeln('сред. арифметическое равно ',sr,''); 
end.
7)  Program n1; 
var a:array[1..100] of real; 
i,n:integer; 
min,max:real; 
begin 
read(n); 
for i:=1 to n do
read(a[i]); 
min:=a[1]; 
for i:=2 to n do 
if a[i]<min then 
min:=a[i]; 
max:=a[1]; 
for i:=2 to n do 
if a[i]>max then 
max:=a[i]; 
writeln('максимальный элемент равен ',max,''); 
writeln('минимальный элемент равен ',min,''); 
end.
8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end.
9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],'  '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.

Uses Crt;
Const
   N = 100;
Var
   A:array[1..N] of real;
   i,k:integer;
   S:real;
Begin
ClrScr;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=Sin(i)*Cos(i);
    Write(' ',A[i]:0:3);
    if A[i] <> 0 then
       Begin
       k:=k+1;
       S:=S+A[i]
       End;
    End;
WriteLn;
WriteLn('Sr = ',S/k);
ReadLn
End.

Результат работы программы:

Исходный массив: Исходный массив: 0.455 -0.378 -0.140 0.495 -0.272 -0.268 0.495 -0.144 -0.375 0.456 -0.004 -0.453 0.381 0.135 -0.494 0.276 0.265 -0.496 0.148 0.373 -0.458 0.009 0.451 -0.384 -0.131 0.493 -0.279 -0.261 0.496 -0.152 -0.370 0.460 -0.013 -0.449 0.387 0.127 -0.493 0.283 0.257 -0.497 0.157 0.367 -0.462 0.018 0.447 -0.390 -0.123 0.492 -0.287 -0.253 0.497 -0.161 -0.364 0.463 -0.022 -0.445 0.392 0.118 -0.491 0.290 0.249 -0.498 0.165 0.361 -0.465 0.027 0.443 -0.395 -0.114 0.490 -0.294 -0.246 0.498 -0.169 -0.357 0.467 -0.031 -0.441 0.398 0.110 -0.489 0.297 0.242 -0.499 0.173 0.354 -0.468 0.035 0.439 -0.401 -0.105 0.488 -0.301 -0.238 0.499 -0.177 -0.351 0.470 -0.040 -0.437
Sr = -0.00136006072493969