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

Question

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

Answer 1

57

user1488

06 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить