Количество символов в документе равняется:
71*35*50;
71*35*50/1024=121.3кб
Т.к в одном килобайте содержится 1024 символов.
max:=mas[0];
For i:=1 to N do
if ((mas[i] mod 2 <>0)and(max<mas[i]))then max:=mas[i];
В общем, проверь ссылки ярлыков (точно ли ведут на нужные программы) и наличие необходимого (.NET, DirectX (хотя не вижу связь, но не повредит)), ну и, конечно, систему антивирем (Kaspersky Virus Removal Tool самое оно)
Var A:array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
A[i]:=(random(101)-50);
writeln (A[i]);
end;
<span>end.
</span>
10011010, если расписывать, то просто 154 делить на два в столбик, и всё остатки должны сойтись с моим полученным числом, удачи!