Простая программа, не уверен в точности ответа Нужно дописать условие
это в паскале: for i:=1 to 5 do if a[i] rez:=a[i];
Спасибо, у меня также, только А-большая
ну да - просто замени - торопился - некогда было включать сaps look - надеюсь, суть ты понял