Программа определяет кратно число 10 или нет. Если кратно печатает True, если нет печатает False.
Вывод можно дополнить так:
write('Число ',x,' — ',a);
Const
n = 8;
var
i, j, umax, lmax: integer;
a: array[1..n, 1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(40) - 20;
write(a[i, j]:4)
end;
writeln;
end;
umax := -100;
for i := 1 to n do
for j := i to n do
if umax < a[i, j] then umax := a[i, j];
lmax := -100;
for i := 1 to n do
for j := 1 to i do
if lmax < a[i, j] then lmax := a[i, j];
writeln('Разность максимумов равна ', umax - lmax)
end.
Тестовое решение:
Исходный массив
-5 18 -13 1 -16 5 0 -13
4 -18 -17 -14 2 10 -2 -15
-15 -8 -6 -16 -10 -12 -18 -17
-18 6 11 -5 4 -6 -1 1
10 14 3 -7 2 11 10 -1
6 -2 -20 1 4 9 13 -4
-9 -7 4 -6 -12 3 1 -14
15 -16 -1 -3 13 -15 3 -10
Разность максимумов равна 3
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
1) A - 0011
B - 0101
A∨B - 0111
B&(A∨B) - 0101