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) 1,5 Кбайт * 1024 = 1536 байт
1536 байт * 8 = 12288 бит
2) 4 Кбайт * 1024 = 4096 байт
4096 байт * 8 = 32768 бит
Объяснение:
1 Кбайт = 1024 байт
1 байт = 8 бит
sum = 0
while True:
a = int(input())
if a == 0:
break
if (a % 4 == 0) and (a % 10 == 2):
sum += 1
writeln(sum)
Приемной комиссии может?
принять документы, аттестат, заявление и прочее.
добавить фамилию в списки, для вступительных экзаменов.
задачи должна решать:
1. Допускать ли абитуриентов до вступительных экзаменов, исходя из всей имеющейся информации об абитуриенте.