1) г
2) е
3) не розумию вашу мову :) но похоже на Б
4) г
5) авгд
6) бвд
7) авг
8) а2, б5, в4, г1, д3
9) 1г 2б 3в 4д 5а
Вот у меня осталось с позапрошлого года ещё
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
Var M: array[1..15] of integer;
i, count: integer;
begin
for i := 1 to 15 do begin
M[i] := random(15);
write(M[i]:3);
if(M[i] mod 2 = 0) then inc(count);
end;
writeln(#10, 'Кол-во четных элементов: ', count);
<span>end.</span>
Program test;
var a,i,z,max:int64;
begin
readln(a);
for i:=1 to Length(InttoStr(a)) do
beginz:=a mod 10;
a:=a div 10;
if max<z then max:=z;
end;
writeln(max);
<span>end.</span>