Даны множества: а-множество фруктов в корзине в-множество яблок в этой корзине с-множество зеленых яблок - id219850920210701 от kekmanchik 01.07.2021 20:23

Question

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

kekmanchik · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1219

Const
n=15;

Var
ar:array[1..n] of integer;
i,sum:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(5,15);
write(ar[i]:4);
if i<=6 then
sum:=sum+ar[i];
end;
writeln;
writeln('Sum=',sum);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]*7;
write(ar[i]:6);
end;
end.

Пример работы программы:
First array:
9 15 5 12 13 6 11 7 6 14 13 6 6 10 11
Sum=60
Final array:
63 105 35 84 91 42 77 49 42 98 91 42 42 70 77

MOGZ ответил