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

Большое спасибо Вам

Пожалуйста, не забудь про лучший ответ!

Простите, а что за лучший ответ?)

Через несколько дней, тебе система (в уведомлениях) предложит выбрать лучший ответ за твой вопрос. Тебе вернется часть баллов и мне прибавится.

А, спасибо. Буду теперь знать. Просто я вот несколько часов назад только зарегестрировалась тут

Вот дописанная программа:

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.

Вот что будет выведено на экран: фото