Регистрация
povolyasha
28.09.2020 19:35
Информатика
Есть ответ 👍

пароль от файлов: Tt4Fk5Cm6g
сами файлы: https://oxy.st/d/fnLd

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

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

Ivangevorgyan
Ivangevorgyan
4,5(93 оценок)
Var a,b: array[1..13] of integer; i,j: integer; begin write('a: '); for i: = 1 to 13 do begin a[i]: =random(13)+1; write(a[i],' ') end; writeln; write('b: '); for j: = 1 to 13 do   begin   for i: = 1 to j do   b[j]: =b[j]+a[i];   write(b[j],' ')   end end.

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