Program n1;
var a: array[1..18] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 18 do
begin
a[i]:=random(87)-4;
write(a[i],' ');
if a[i] mod 2=0 then k:=k+1;
end;
writeln;
write('k четн: ',k);
end.

0 0

4 года назад

Помогите) Найти в матрице [4×4] наименьший элемент, и заменить все элементы матрицы меньше среднего арифметического min элементо

Nimfa777

Var
matrix :array[1..4, 1..4] of integer;
min, sum, i, j :integer;
begin
min := maxint;
sum := 0;
for i:=1 to 4 do
for j:=1 to 4 do
read(matrix[i, j]);
for i:=1 to 4 do
for j:=1 to 4 do
begin
if matrix[i, j] < min then
min := matrix[i, j];
sum := sum + matrix[i, j];
end;
for i:=1 to 4 do
for j:=1 to 4 do
if matrix[i, j] < (sum / 16) then
matrix[i, j] := min;
end.

0 0

3 года назад

Чем определяется выбор того или иного типа диаграммы

Игорь Квинт

Целью: если нужно сравнить какие-то данные - выбираем столбчатую (гистаграмму), если нужно проследить изменение какой-то одной величины - график, если нужно определить долю какой-то величины в общем объеме - круговую

0 0

4 года назад

Сколько информации содержится в картинке экрана, с разрешением 800 на 600 пикселей, 16 цветов.

EugeneG [7]

16 цветов - значит, каждый пиксель кодируется 4 битами информации (2^4 = 16), всего 800*600*4 = 1920000 бит = 240000 б = 234 кб

0 0

4 года назад