Program dlksjijh; var A: array[1..40] of integer; i: integer; begin randomize; writeln('исходные данные:'); for i := 1 to 40 do begin A[i] := Random(21); write(A[i], ' '); end; writeln; writeln('преобрезованный массив:'); for i := 1 to 40 do begin if A[i] mod 2 = 0 then A[i] := Round(A[i]/2) else A[i] := A[i] * 3; write(A[i], ' '); end; end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
a - 11010000 10110000
б - 11010000 10110001
в - 11010000 10110010
г - 11010000 10110011
д - 11010000 10110100
е - 11010000 10110101
ё - 11010001 10010001
ж - 11010000 10110110
з - 11010000 10110111
и - 11010000 10111000
й - 11010000 10111001
к - 11010000 10111010
л - 11010000 10111011
м - 11010000 10111100
н - 11010000 10111101
о - 11010000 10111110
п - 11010000 10111111
р - 11010001 10000000
с - 11010001 10000001
т - 11010001 10000010
у - 11010001 10000011
ф - 11010001 10000100
х - 11010001 10000101
ц - 11010001 10000110
ч- 11010001 10000111
ш - 11010001 10001000
щ - 11010001 10001001
ъ - 11010001 10001010
ы - 11010001 10001011
ь - 11010001 10001100
э - 11010001 10001101
ю - 11010001 10001110
я - 11010001 10001111
Цифры:
1 - 110001
2 - 110010
3 - 110011
4 - 110100
5 - 110101
6 - 110110
7 - 110111
8 - 111000
9 - 111001
10 - 110001 110000
Ошибка - 0000000000000000var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.