Var i,n,k:integer;
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
readln
end.
Номер 17, ответ 9
А ещё у вас ошибка вроде в 18
На 1
странице досье
располагается 48х64х8= <span>24576
бит или 3072 или 3Кб. Тогда 1 досье, содержащее 12 страниц имеет объем
информации равный 12х3=36 Кб. Все досье занимают 45 Мб или 46080 Кб.
Следовательно всего досье 46080 : 36 = 1280</span>
Седловые точки редко рандомятся, так что вводите значения с клавиатуры. Надо вначале программе раскомментировать ввод через клавиатуру и закоментировать ввод спомощью рандома.
1 = 1
2 = 2
3 = 3
4 = 2
5 = 2
6 = 4
7 = 1
8 = 4
9 = 5
<span>10 = 1</span>