Регистрация
Школьник2525
15.03.2022 06:44
Информатика
Есть ответ 👍

сделать PHP, прикрепляю фото с заданием

270
470
Посмотреть ответы 1

Ответы на вопрос:

kozinasofia2006
kozinasofia2006
4,4(49 оценок)
Var i,c,k,j: integer; a: array[1..10] of integer; beginrandomize; writeln('получившийся массив: '); for i: =1 to 10 do begina[i]: =random(201)-100; if a[i]> 0 then k: = k +1; write(a[i],' '); end; for i: =1 to 10 do beginfor j: =2 to 10 do beginif a[j] > a[j-1] then beginc: =a[j]; a[j]: = a[j-1]; a[j-1]: =c; end; end; end; writeln; writeln('кол-во положительных элементов: ',k); writeln('измененный массив: '); for i: =1 to 10 dowrite(a[i],' '); end.

Популярно: Информатика