Аша, Таня и Валя учатся в 5 классе. Для изучения пространственных фигур их попросили принести на урок математики игрушечные кубики. Будем считать, что у каждого кубика есть 3 характеристики: материал (пластмассовый или деревянный), размер (большой или маленький) и цвет (красный или синий). Известны некоторые характеристики кубиков, которые принесли девочки.
Маша принесла 3 кубика: первый — пластмассовый, второй — большой, третий – деревянный красный.
Таня принесла 2 кубика: первый — деревянный, второй — пластмассовый большой красный.
Валя принесла 2 кубика: первый — маленький, второй — пластмассовый большой синий.
Каждая девочка достала из сумки один из принесённых кубиков. Удивительно, но они оказались одинаковыми! Определите характеристики кубиков, которые достали девочки.
В ответе нужно записать три буквы. Первая буква обозначает материал того кубика, который достали все девочки: П (пластмассовый) или Д (деревянный). Вторая буква означает размер кубика: Б (большой) или М (маленький). Третья буква означает цвет кубика: К (красный) или С (синий).
var
a:array[1..m,1..n] of integer;
i,j,max,imax,jmax,min,imin,jmin:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1]; imax:=1; jmax:=1;
min:=a[1,1]; imin:=1; jmin:=1;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end;
if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end;
end;
writeln('max = a[',imax,',',jmax,'] = ',max);
writeln('min = a[',imin,',',jmin,'] = ',min);
a[imax,jmax]:=min;
a[imin,jmin]:=max;
writeln('Полученный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
69 2 25 92 32 43
98 77 49 29 48 5
30 8 95 83 37 83
31 6 47 91 82 65
86 31 62 70 82 38
max = a[2,1] = 98
min = a[1,2] = 2
Полученный массив:
69 98 25 92 32 43
2 77 49 29 48 5
30 8 95 83 37 83
31 6 47 91 82 65
86 31 62 70 82 38
var
a,k,s: integer;
begin
read(a);
k := 0; s := 0;
while a mod 2 <> 0 do
begin
if abs(a) mod 10 > 5 then
s := s + a;
a := abs(a);
if (a > 9) and (a < 100) then
k := k + 1;
read(a);
end;
writeln('k=',k,', s=',s)
end.
{2}
var
n,i,p,a: integer;
begin
read(n);
p := 1;
for i := 1 to n do
begin
read(a);
if (a > 0) and (a mod 3 = 0) then
p := p * a;
end;
writeln('p=',p)
end.
{3}
var
n,a,i,k,s: integer;
begin
read(n);
k := 0; s := 0;
for i := 1 to n do
begin
read(a);
if a > 0 then
begin
s := s + a;
k := k + 1;
end;
end;
if k = 0 then k := 1;
writeln('s=',s/k)
end.