Const
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(20)+10;
Write(a[i,j]:3)
end;
Writeln
end;
Writeln('Результирующий массив');
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
else a[i,j]:=3*a[i,j];
Write(a[i,j]:3)
end;
Writeln
end
end.
Пример решения
Исходный массив
12 10 12 20 17 17 28 23
22 27 28 14 23 10 26 15
29 13 10 29 26 11 17 24
10 14 17 24 16 12 22 28
17 25 26 24 25 22 17 23
18 11 20 12 28 29 25 13
26 11 28 19 17 27 22 10
22 17 20 12 10 13 17 19
14 10 27 28 13 11 20 16
26 16 21 24 20 15 26 10
Результирующий массив
36 20 36 40 51 51 84 69
66 81 84 42 69 20 78 30
87 39 20 87 78 33 51 72
20 42 51 72 48 36 66 84
51 50 78 72 50 66 51 69
54 33 40 36 84 87 50 39
78 33 84 57 51 81 66 20
66 51 40 36 20 39 51 57
42 20 81 84 39 33 40 48
78 48 63 72 40 30 78 20
Var
a,b,c,d:longint;
begin
readln(a);
b:=a div 100 mod 10;
c:=a div 10 mod 10;
d:=a mod 10;
writeln(b+c+d);
writeln(b×c×d);
writeln(d,c,b);
end.
Какой код цвета напишешь, такой и будет. Если так иксы и оставишь, то белый (который по умолчанию), потому что такое значение будет ошибочным.
Ответ: 7
По условию если значение Ball[k] больше 3, то значение c увеличивается на 1.
Проверяем:
Ball[1] = 4 > 3 (да) c = 1
Ball[2] = 5 > 3 (да) c = 2
Ball[3] = 3 > 3 (нет) c = 2
Ball[4] = 4 > 3 (да) c = 3
Ball[5] = 2 > 3 (нет) c = 3
Ball[6] = 5 > 3 (да) c = 4
Ball[7] = 4 > 3 (да) c = 5
Ball[8] = 3 > 3 (нет) c = 5
Ball[9] = 4 > 3 (да) c = 6
Ball[10] = 5 > 3 (да) c = 7
<span>Позволяет выбрать гарнитуру,
размер и начертание используемого шрифта.
Форматирование текста проще говоря.</span>
