На паскале
---
uses crt;
const n=3;
m=3;
var a: array [1..n,1..m] of integer;
x,y,k: integer;
begin
k:=0;
for x:=1 to n do begin
for y:=1 to m do begin
a[x,y]:=random(21)-10;
if a[x,y] mod 2=1 then inc(k);
write(a[x,y]:4);
end;
writeln;
end;
writeln('Количество неотрицательных нечетных элементов: ',k);
<span>end.</span>
<span>Линейка нужна для изменения расстояния (между точками) с незначительной погрешностью.
</span>Транспортир нужен для измерения градусной меры угла с незначительной погрешностью.
Термометр нужен для измерения температуры.
<span>Барометр нужен для измерения атмосферного давления.
</span><span>Компас нужен для ориентирования по магнитным полюсам Земли.
</span><span>Телескоп нужен для того, чтобы увидеть отдалённые объекты.
</span><span>Микроскоп нужен для того, чтобы увидеть незримые невооружённым глазом тела.
</span>Абак нужен для упрощения счёта.
Детектор Гейгера нужен для измерения радиационного фона.
=)
C2 = $A$1 + B2 = 26 + 53 = 79 ;
C3 = $A$1 + B3 = 26 + 21 = 47.
Системный блок->1)монитор;2)клавиатура; 3)мышь;4)колонки;5)наушники;
var
b, p: real;
i: byte;
begin
p := 1;
for i := 0 to 47 do
begin
b := cos(i) * (sqr(i) / (i + 8));
if (abs(b) <= 25) then
p := p * i;
if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть
write(i, ' '); //Вывод очередного числа
end;
writeln(#13, p); //Вывод произведения
end.
