Программа для Pascal.
PROGRAM Z;
USES CRT;
VAR
A,B:INTEGER;
M:ARRAY[1..10] OF INTEGER;
BEGIN
CLRSCR;
WRITELN('VVEDITE ELEMENTY');
FOR A:=1 TO 10 DO READLN(M[A]);
WRITELN('CHETNIE ELEMNTY : ');
FOR A:=1 TO 10 DO IF A MOD 2 = 0 THEN WRITELN (M[A]);
READKEY
<span>END.</span>
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>
Ответ B.
Пояснение:
<span>01110100 во 2 = 116 в 10 = буква t в таблице ANSI
</span>01100101 во 2 = 101 в 10 = буква e <span>в таблице ANSI</span>
01110011 во 2 = 115 в 10 = <span>буква </span>s в таблице ANSI
01110100 во 2 = 116 в 10 = <span>буква </span>t <span>в таблице ANSI</span>
Если я правильно понял условие, то код выглядит так.
uses crt;
var i,ans,sum:integer;
a:array[1..30] of integer;
begin
sum:=0;
ans:=0;
for i:=1 to 30 do
begin
a[i]:=10*i+2*sqr(i);
if a[i]<50 then
ans:=ans+1;
sum:=sum+a[i];
end;
writeln(sum/ans);
for i:=1 to 30 do
<span>write(a[i],' ');
</span>end.