Заполнить массив по следующему принципу 21 22 23 24 25 16 17 18 19 20
11 12 13 14 15
6 7 8 9 10
1 2 3 4 5

254

352

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

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

Meowmeowmi

Информатика

4,5(32 оценок)

Var mas: array [1..20] of integer; k: integer; begin randimize; //заполнение массива for k: =1 to 20 do begin mas[k]: =random(1000); end; for k: =1 to 20 do begin if k and 1=1 then mas[k]: =mas[k]*2 else mas[k]: =mas[k]-1; end; //вывод массива for k: =1 to 20 do writeln(mas[k]); end.