Begin
var a:=ReadInteger;
var w,q: integer;
w:=a div 10;
q:=a mod 10;
write((q+w)/2);
end.
Ответ:
Пока карандаши есть в коробке
Берёшь 1 карандаш
Если он простой то кладёшь в белую коробку
В противном случае кладёшь в красную коробку
Var ar:array[1..12] of integer;
i,min:integer;
begin;
min:=2147483647;
for i:=1 to 12 do
begin;
readln(ar[i]);
if (ar[i]>0) and (ar[i]<min) then
min:=ar[i];
end;
writeln;
writeln('Array:');
for i:=1 to 12 do
write(ar[i]:4);
writeln;
write('Min:',min);
<span>end.</span>
Var
a: array [1..N,1..N] of real;
i: integer;
j: integer;
kol: real;
begin
// ввести значения массива a вашим любимым способом
for i:=1 to N do
for j:=1 to N do
if a[i,j]=0 then
kol=kol+1;
write('Количество нулей: ', kol);
end.