Исполнить фрагмент программы. Дописать программу полностью. Что будет на экране после выполнения программы ? Сформулировать задачу, решение которой содержало бы данный фрагмент : for i:=1 to 12 do if a[i]>0 then a[i]:=abs( a[i] - 20);
Podpletneff
Через несколько дней, тебе система (в уведомлениях) предложит выбрать лучший ответ за твой вопрос. Тебе вернется часть баллов и мне прибавится.
КравченкоАлина
А, спасибо. Буду теперь знать. Просто я вот несколько часов назад только зарегестрировалась тут
Answers & Comments
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.
Вот что будет выведено на экран: фото