№1 выделите попарно общие и единичные понятия и запишите их в соответствующие столбцы таблицы : общее - id55080120210104 от 89670198045 04.01.2021 09:14

Question

Информатика: №1 выделите попарно общие и единичные понятия и запишите их в соответствующие столбцы таблицы : общее понятие единичное понятие понятия: композитор,пушкин,художник,чайковский,озеро,горы,репин,поэт,байкал,париж,карпаты,филосов,город,сократ,полководец,чита,суворов,учёный,река,ньютон,лена,! кто сделает первым поставлю как лучшее

89670198045 · Accepted Answer

Const   n = 11; var   x: array[1..n] of integer;   i, k, d, s: integer; begin   Randomize;   Writeln( Элементы массива );   k := 0; s := 0;   for i := 1 to n do   begin     d := Random(11) - 5;     Write(d:3);     if (i mod 2) = 0 then begin { четное место }       if d = 1 then Inc(k);       x[i] := d     end     else begin       if d 0 then s := s + d;       x[i] := sqr(d)     end   end;   Writeln;   Writeln( Результирующий массив );   for i := 1 to n do Write(x[i]:3);   Writeln;   Writeln( Количество...

MOGZ ответил