Ответ:
-8
Объяснение:
Составим уравнение
(((11 + 5) / d) + 5 + 5) / d = -1
16 = -d² - 10d
d² + 10d + 16 = 0
d₁ = 2 d₂ = -8
По условию d < -5
d = -8
Проверка:
11 + 5 = 16
16 / -8 = -2
-2 + 5 = 3
3 + 5 = 8
8 / -8 = -1
I,j,k:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]mod 2<>0 then k:=k+1;
writeln('Количество нечетных ',k);
end.
Тестовое решение:
10 -1 -1 3 5 -3 -6 -1 2 8
-5 -5 -3 -1 3 -8 -1 -1 -6 -2
2 -3 5 0 -1 -4 0 3 7 -8
-6 5 6 3 -8 -6 -4 10 -3 0
-5 -4 2 -6 -10 -2 -1 3 5 -7
2 -10 2 10 -8 2 4 9 -6 -1
7 1 3 -1 3 0 0 4 -3 -1
7 -1 -8 4 -8 -5 6 1 0 -9
7 8 9 3 0 -6 -8 6 0 0
0 -3 6 8 4 4 4 -8 1 0
Количество нечетных 45
10*15 переведем в дюймы
1 дюйм = 2,54 см
10 / 2,54 = 3,937 дюймов
15 / 2,54 = 5,9 дюймов
определим объём файла
3,937*600 * 5,9*600 * 3 = 25086564 байт
<span>25086564 байт / 1024 = 24498,59 Кбайт / 1024 = 23,92 Мбайт</span>
Const n=10;
var
a: array[1..n] of integer;
sa: real;
k: integer;
i: byte;
begin
sa:=0; k:=0;
for i:=1 to n do begin;
read (a[i]);
if a[i] mod 4 =0 then begin
sa:=sa+a[i];
k:=k+1;
end;
end;
sa:=sa/k;
writeln;
writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12
Столбец в таблице под буквой В
диаграмма построена 5 10 15 10<span />