30 ! №1переменные a,b,c начало a: =10 b: =15 c: =a+b чему будет равна перменая с в результате выполнения - id973840220201219 от TolstoyLev 19.12.2020 09:02

Question

Информатика: 30 ! №1переменные a,b,c начало a: =10 b: =15 c: =a+b чему будет равна перменая с в результате выполнения алгоритма №2 констаты а=20 в=10 с=25 начало с: =в-8 чему будет равна переменная с в результате выполнения алгоритма №3 переменные a,b,d,e константа с= апельсин начало d: = 20 ; е: =d+c чему будет равна переменная е в результате выполнения алгоритма

TolstoyLev · Accepted Answer

Const
n = 20;

var
pos,neg: integer;
i,k,x: integer;
ev,un: integer;
a,b: array [1..n] of integer;

begin
for i := 1 to n do
read(a[i]);
  k := 0;
pos := 0;
neg := 0;
  for i := 1 to n do
begin
   ev := 0;
un := 0;
   x := a[i];
   if x <> 0 then
if x > 0 then
if (x < pos) or (pos = 0) then
pos := x
else
else
if (x > neg) or (neg = 0) then
neg := x;
   x := abs(x);
   while x <> 0 do
begin
if odd(x) then
un := un + 1
else
ev := ev + 1;
x := x div 10
end;
   if un = ev then
begin
k := k + 1;
b[k] := a[i]
end
   end;

writeln(pos,' ',neg);
for i := 1 to k do
write(b[i],' ')
end.

MOGZ ответил