В вещественной таблице 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.
Не нашли ответ?
Похожие вопросы