Срочно помогите. Pascal ABC!!!

Срочно помогите. Pascal ABC!!!
Гость
Ответ(ы) на вопрос:
Гость
vara:array[1..10] of integer;i:integer; beginfor i:=1 to 10 doread(a[i]);for i:=1 to 10 doif a[i]<0 then a[i]=abs(a[i]);for i:=1 to 10 dowrite(a[i]);end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы