Придумай и впиши пропущенные названия множеств. множество тюльпанов множество тюльпанов множество множество тюльпанов

можно так.множество тюльпанов

множество роз

множество тюльпанов

множество акаций

множество тюльпанов

множество фукусов

 

 

Program chisla; var a: array [1..10] of integer;       o,p,i: integer; begin       for i: =1 to 10 do readln(a[i]);       for i: =1 to 10 do begin             if a[i]< 0 then o: =o+a[i];             if a[i]> 0 then p: =p+1;             end;       write('сумма отрицательных = ',o,'.'); writeln('');       write('количество положительных = ',p,'.'); end.     

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var (n,m): = readinteger2('n, m -> '); var a: = matrrandom(m,n); writeln('исходная матрица: '); a.println; dec(n); dec(m); for var i: = 0 to m do begin   swap(a[i, a.row(i).indexmin],a[i, n]);   swap(a[i, a.row(i).indexmax],a[i, 0]); end; writeln('конечная матрица: '); a.print end. пример: n, m ->   5 6 исходная матрица:   99    9  30  83  11   89  13  70  50  54   43  59  22  13  89   67  27  48  72  41   63  62    5  58  71   45  35  60    3  95 конечная матрица:   99  11  30  83    9   89  54  70  50  13   89  59  22  43  13   72  41  48  67  27   71  62  63  58    5   95  35  60  45    3