Var
a, b, c, d: integer;
begin
write ('Введите три числа: ');
readln (a, b, c);
if a >= b then
d := a
else
d := b;
if c > d then
d := c;
writeln ('Максимальное из них: ', d);
readln
end.
В двоичном алфавите используется только 0 и 1, следовательно мошность алфавита - 2.
Const
n = 10;
var
s, i: integer;
a: array[1..n] of integer;
begin
Randomize;
for i := 1 to n do
begin
a[i] := random(60) - 30;
write(a[i], ' ');
if a[i] > 0 then
s := s + a[i];
end;
writeln;
writeln(s);
end.
По горизонтали
1)274
5)1979
6)8376
7)135
по вертикали
1)24954
2)43825
3)193
4)377
сможешь сделай ответ лучшим? очень надо:)