На столе стоят в ряд несколько пронумерованных коробок. в каждой коробке под закрытой прозрачной крышкой - id1003392520211010 от daryabozhko2006 10.10.2021 22:42

Question

Информатика: На столе стоят в ряд несколько пронумерованных коробок. в каждой коробке под закрытой прозрачной крышкой лежат три пластинки: треугольная (т), прямоугольная (п) и круглая (к), возможно, с изображениями различных букв. вы можете за один ход снять крышки с двух соседних коробок, переложить из коробки в коробку любое число пластинок, но так, чтобы в каждой коробке остались три пластины различной формы, то есть можно обменивать пластины одной формы, но с разными буквами. при завершении хода крышки коробок

daryabozhko2006 · Accepted Answer

Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
a, b: array[1..20]of integer;
i, s,n: integer;
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
   begin
a[i] := random(100) - 50;
write(a[i],' ');
if (a[i] > 0) and (i mod 2 = 0) then
  begin
n:=n+1;
b[n]:= a[i];
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.

MOGZ ответил