Вводится последовательность целых чисел…

Вводится последовательность целых чисел, по абсолютной величине меньших или равных 100. Найти и вывести на печать максимальный элемент и число отрицательныхэлементов, расположенных после первого нулевого элемента. Кто может плз очень срочно решить, желательно без массивов, но если не выйдет то через них. На языке Turbo Pascal

в избранное

yulyalva

06 марта 2023

Program project1; usescrt,math; constn=10; var s: real; i,f,m: byte; a: array [1… 10] of real; begin m: =0; for i: =1 to n do begin writeln ('vvedite ',i,' cifru'); readln (a[i]); end; for i: =1 to n do begin if a[i]<0 then inc (f); end; for i: =1 to n do begin if a[i]=0 then inc (m); if m<>0 then s: =s+a[i]; end; writeln ('kolichestvo otricatelnih: ',f: 2); writeln ('summa vseh posle 0: ',s: 2:2); readln; end.

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

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

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

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