akuznecov8989
?>

Напишите программу в питоне, чтобы нарисовать !

Информатика

Ответы

Chernaya
Const n=12; var a: array[1..n] of integer;       avg: real;       i: byte; begin   writeln('введите массив из ',n, 'элементов');   i: =0; avg: =0;   while i< n do   begin   i: =i+1 ;   read(a[i]);   avg: =avg+a[i];   end;   avg: =avg/n;   i: =0;   writeln('исходный массив');   repeat   i: =i+1;   write(a[i]: 5);   until i> =n;   writeln;   writeln('отредактированный массив');   i: =0;   repeat   i: =i+1;   if a[i]< avg then a[i]: =3;   write(a[i]: 5);   until i> =n; end.
natapetrova20017
Const   n = 10; var   x: array[1..n,1..n] of integer;   i,j,k,xmin: integer; begin   randomize;   writeln('исходный массив');   xmin: =32767;   for i : = 1 to n do   begin       for j : = 1 to n do       begin           k: = random(1001); x[i,j]: =k;           write(x[i,j]: 5);           if (k mod 2=0) and (k mod 3< > 0) then               if xmin> k then xmin: =k       end;       writeln   end;   writeln('минимальное четное, не кратное 3: ',xmin) end. тестовое решение: исходный массив   804  425  286  223    93  517  955  301  708  171   934  347  789  960  195  784  651    76  498  402   360  170  940    62  428  226  959  173  129  723   232  732  777  152    56  631  974    17  620  271     61  314  974  787    70  574  756  856  232  497   385    34    25  652  966  634  486  224  796  868   558  781  171  985  940  201  570  636  903  564   810  633  457  227  341    45  196  153  992  854   470  103  942  633  338  197  707  125  187  423   144  750  221  753  713  280  143  989  847  869 минимальное четное, не кратное 3: 34

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите программу в питоне, чтобы нарисовать !
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

symkifm
steam22-9940
Alekseevich_Elena
svetkaiv
ilyatamurov
Andrei Morozov
Maksimova1320
Егорова
Poroskun
Жуков219
okykovtun31
emmakazaryan290
srgymakarov
zoosalon-hollywood5
Вадим-Рашад323