Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.
Ответ:
66 лет
Объяснение:
program Owl;
var
n: Integer;
begin
for n := 10 to 99 do
if ((n mod 6 = 0) xor (n mod 10 = 2)) and ((n > 32) xor (n mod 10 = 5)) and ((n mod 11 = 0) xor (n < 33)) then
WriteLn (n);
ReadLn;
end.
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
Вот все ответы короче
<span>3.ИСТОЧНИК </span><span>4.ПРИЁМНИК </span><span>5.ОБРАБОТКА </span><span>6.ИНФОРМАЦИЯ </span><span>8.АЛФАВИТ </span><span>1.БИТ </span><span>2.КОДИРОВАНИЕ </span><span>7.ЯЗЫК </span>