program fantscrin;
const n = 10;
var a: array [1..n] of integer;
i,min,max: integer;
begin
for i: =1 to n do
a[i]: = random(41)-20;
for i: =1 to n do
write(a[i], ' ');
min: =a[1];
for i: =1 to n do
if (a[i]< min) then min: =a[i];
max: =a[1];
for i: =1 to n do
if (a[i]> max) then max: =a[i];
writeln('');
writeln(min+max);
end.
program fantscrin;
const n = 10;
var a: array [1..n] of integer;
i,s: integer;
begin
for i: =1 to n do
a[i]: = random(11)+1;
for i: =1 to n do
write(a[i], ' ');
p: =1;
for i: =1 to n do
if (i mod 2 < > 0) then
begin
p: =p*a[i];
write(a[i], ' ');
end;
writeln('');
writeln('произведение = ',p);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Постройте модель решения . в одной упаковке находиться n керамических плиток размером 33 см х 33 см. сколько упаковок плитки потребуется для того, что-бы выложить ею пол в ванной комнате прямоугольной формы размером a см х b см?
модель данной :