Const
m=5;
n=7;
var
a:array[1..m,1..n] of integer;
i,j,amax:integer;
p:real;
begin
Randomize;
Writeln('Исходный массивэ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3)
end;
Writeln
end;
{Задача 1}
amax:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>amax then amax:=a[i,j];
Writeln('Максимальный элемент равен ',amax);
{Задача 2}
p:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j] mod 2=0 then p:=p*a[i,j];
Writeln('Произведение четных элементов равно ',p);
end.
Пример работы
Исходный массивэ
94 20 49 80 70 55 40
62 74 71 51 88 10 76
68 11 11 74 96 50 69
98 34 25 93 52 53 61
68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33
1)
Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
for i:=1 to n do a[i]:=random(100)+1;
for i:=1 to n do sum:=sum+a[i];
writeln('сумма: ',sum);
end.
2)
Program n2;
const n=10;
var a: array [1..n] of integer;
i,sum,j,temp: integer;
begin
randomize;
writeln('исходный массив');
for i:=1 to n do
begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]<a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do write(a[i],' ');
end.
АПР, Школа №151 Мурманской области помогает вам:
1) 24 буквы + 8 цифр = 32 символа
2) 32 символа + 1 пробел = 33 символа
3) А так как для 32 символов нужно 5 бит, то для 33 символов нужно 6 бит
Ответ: i = 6 бит
2.
Здесь каждый раз придется задавать вопросы, чтобы уменьшить количество возможных вариантов.
1) больше или меньше 32?
2) больше или меньше 16?
3) больше или меньше 8?
4) больше или меньше 4?
5) больше или меньше 2?
Ответ: 5 вопросов.
3.
Не смогу помочь. Мне задали другое задание. Удачи. 3 уже обеспечена :)
Если он программист, а не тупоголовый кодер-программер, то у него явно хватит мозгов не платить ни за какие лицензии на ПО.