<em>Д</em><em>о</em><em>р</em><em>о</em><em>г</em><em>о</em><em>й</em><em> </em><em> </em><em>п</em><em>о</em><em>л</em><em>ь</em><em>з</em><em>о</em><em>в</em><em>а</em><em>т</em><em>е</em><em>л</em><em>ь</em><em>,</em><em> </em><em>я</em><em> </em><em>п</em><em>р</em><em>о</em><em>в</em><em>е</em><em>р</em><em>и</em><em>л</em><em> </em><em><u>в</u></em><em><u>с</u></em><em><u>е</u></em><em> </em><em>с</em><em>п</em><em>о</em><em>с</em><em>о</em><em>б</em><em>ы</em><em> </em><em>и</em><em> </em><em>н</em><em>е</em><em> </em><em>н</em><em>а</em><em>ш</em><em>е</em><em>л</em><em> </em><em>т</em><em>а</em><em>к</em><em>у</em><em>ю</em><em> </em><em>с</em><em>т</em><em>е</em><em>п</em><em>е</em><em>н</em><em>ь</em><em>.</em>
<em>П</em><em>о</em><em>ж</em><em>а</em><em>л</em><em>у</em><em>й</em><em>с</em><em>т</em><em>а</em><em> </em><em>п</em><em>р</em><em>о</em><em>в</em><em>е</em><em>р</em><em>ь</em><em> </em><em>(</em><em>-</em><em>т</em><em>е</em><em>)</em><em> </em><em>с</em><em>в</em><em>о</em><em>е</em><em> </em><em>у</em><em>с</em><em>л</em><em>о</em><em>в</em><em>и</em><em>е</em><em> </em><em>(</em><em>п</em><em>р</em><em>а</em><em>в</em><em>и</em><em>л</em><em>ь</em><em>н</em><em>о</em><em>-</em><em>л</em><em>и</em><em> </em><em>о</em><em>н</em><em>о</em><em> </em><em>н</em><em>а</em><em>п</em><em>и</em><em>с</em><em>а</em><em>н</em><em>о</em><em>)</em>
<em>И</em><em> </em><em>е</em><em>с</em><em>л</em><em>и</em><em> </em><em>о</em><em>к</em><em>а</em><em>ж</em><em>е</em><em>т</em><em>с</em><em>я</em><em> </em><u>о</u><u>ш</u><u>и</u><u>б</u><u>к</u><u>а</u><em> </em><em>в</em><em> </em><em>у</em><em>с</em><em>л</em><em>о</em><em>в</em><em>и</em><em>и</em><em>,</em><em> </em><em>т</em><em>о</em><em> </em><em>н</em><em>а</em><em>п</em><em>и</em><em>ш</em><em>и</em><em> </em><em>(</em><em>-</em><em>т</em><em>е</em><em>)</em><em> </em><em>в</em><em> </em><em>к</em><em>о</em><em>м</em><em>м</em><em>е</em><em>н</em><em>т</em><em>а</em><em>р</em><em>и</em><em>я</em><em>х</em>
Нарисуй книгу напеши наука и - история
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
Для сложения дроби a/b и c/d, нужно привести их к общему знаменателю, на который разделить сумму приведенных числителейя, или a/b + c/d = (a*d+c*b)/(b*d)
