Операция целочисленного деления, div - целая часть, mod - остаток от деления
Результат 5
Var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.
Ответ:
это там где у тебя есть писма смомощу елек почты можно регатся в сетях
program <em>НАЗВАНИЕ ПРОГРАММЫ</em>;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:integer;
begin
writeln('Enter the founding year of Minsk');
readln(a);
if (a=1067) then writeln('Right')
else writeln('You make a mistake');
readln;
end.
<span>
<em>НАЗВАНИЕ ПРОГРАММЫ </em>- поменяйте на название программы.
Минск, вроде, основан в 1067 году, если не прав, то поправьте программу. Вместо 1067 введите год основания.</span>
1. Множество целых чисел от 1 до 3 (ну это совсем легко)
2. Множество трёх самых распространённых видов общественного транспорта (автобус, троллейбус, маршрутное такси)
3. Множество предметов спального белья (простыня, наволочка, пододеяльник)