ТутРешу.Ру

В вещественной таблице A[1:10] найдите количество всех ненулевых…

Задание:

В вещественной таблице A[1:10] найдите количество всех ненулевых элементов

Решение:

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.




Знаете другой ответ?

Отправить свой ответ