Задание:
В вещественной таблице 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.
Знаете другой ответ?
В вещественной таблице 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.
Знаете другой ответ?