Program summ_pol_chicel;var a: array [-100..100] of integer;i, b: integer;beginFor i:=1 to 10 do Readln (a[i]);b := 0;For i:=1 to 10 dobegin if a[i] > 0 then b := b+ a[i];end;writeln(b);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
