В) Китайский, так как там иероглифы, в отличие от других языков.
Program qq;
const n=15;
var a:array[1..n] of Integer;
i:Integer;
begin
for i:=1 to n do begin
a[i]:=random(70-20);
write(a[i]:4);
end;
writeln;
for i:=1 to n do begin
if a[i] mod 2 = 0 then a[i]:=0;
write(a[i]:4);
end;
end.
program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if (a mod 8 = 0) and (a mod 10 = 6)
then sum+= a;
until a = 0;
writeln('Сумма: ',sum);
end.
<h3><u>PascalABC 3.4.2</u></h3>
1. 24
2. Данный массив не может существовать, и данная инициализация вызовет ошибку, поскольку масив может задаваться только позитивными числами
3. Она выведет на экран 0 -1 -4 и закончит работу
Все зависит от типа файла!!!