Program n; var m: array[1..10] of integer; i,k: integer; begin writeln('Введите массив'); k:=0; for i:=1 to 10 do begin readln(m[i]); if m[i]>0 then k:=k+1; end; writeln(k); end.
Если я то отметь мой ответ лучшим
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
