название книги автор жанр
Дюймовочка Андерсен Х.К. сказки
Серебрянное копытце Бажов П.П. сказки
Мишкина каша Носов Н. рассказы
Сказка о потеренном времени Шварц Е. сказка
Ну, погоди Камов Ф. Курляндский А.
Хайт А. сказка по мультфильму
uses crt; var a:array[1..100, 1..100] of integer;
i,j,m,n,max,kol:integer;
begin writeln('Введите размер массива'); readln(m,n);
for i:=1 to m do begin
for j:=1 to n do
begin
writeln('Введите элементы массива ' ,i,'x',j);
readln(a[i,j]);
end; end;
for i:=1 to m do begin
for j:=1 to n do
begin
if a[i,j]>max then
max:=a[i,j];
end;
end; for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]=max then
inc(kol);
end; end;
writeln('max=',max,', встречается ',kol,' raz.');
end.
var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.