Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
рождения 30.05.95
300
var a: array [1..10] of real;
s,i: integer;
begin
{vvod tablicy}
for i : = 1 to 10 do
if a[i]< > 0 then s: =s+1;
writeln(s);
end.
Популярные вопросы