Исполнить фрагмент программы. дописать программу - вопрос №5714703 от аринанеамримр 06.05.2021 11:31

Question

Информатика: Исполнить фрагмент программы. дописать программу полностью. что будет на экране после выполнения программы ? сформулировать , решение которой содержало бы данный фрагмент : for i: =1 to 12 do if a[i] 0 then a[i]: =abs( a[i] - 20);

аринанеамримр · Answer

Вот дописанная программа:var i:integer; a: array [1..12] of integer; begin for i:=1 to 12 do a[i]:=i; for i:=1 to 12 do if a[i] 0 then a[i]:=abs(a[i] - 20); for i:=1 to 12 do write(a[i], ); end.Вот что будет выведено на экран: фото...