1.
program nom1;
const n=8;
var a:array[1..n] of integer;
i,t:integer;
begin
for i:=1 to n do
read(a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
write('Командное время = ',t);
end.
2.program n2;
const N=15;
var a:array[1..N] of integer;
i:integer;
v:real;
begin
for i:=1 to N do a[i]:=random(30);
v:=0;
for i:=1 to N do
v:=v+a[i];
v:=v/N;
writeln('Сред высота =',v);
end.
3.
program n3;
const N=12;var a:array[1..N] of integer;
i,c:integer;
begin
for i:=1 to N do a[i]:=random(120)+100;
c:=0;
for i:=1 to N do
if a[i]>160 then
c:=c+1;
writeln('Kол-во прошедших = ',c);
end.
Решили поменяться лошадьми Я стараюсь финишировать первым на чужой лошади, тогда я выиграю так рыцаря на моей лошади обогнал
Информация - маинцифоря
Правила - вирапла
Алгоритм - гоалритм
10.01.2002 - четверг, то есть будний день (тип дня недели - обычный)
Разговор шел с 18:34 до 18:44, поэтому полностью оплачивается по ночному тарифу, который на 5% меньше, чем 3 рубля в минуту, и равен 3 * 0,95 = 2 руб 85 копеек за минуту (это тариф)
соответственно, общая сумма выйдет 2,85 руб/мин * 10 минут разговора = 28,5 рублей = 28 руб 50 копеек
также прикрепляю таблицу с формулами, там можно менять дату, время, тариф