Напишите программу. в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введеных положительных и отрицательных чисел.

Программу написать в текстовом редакторе блокнот

program z;

var a,i:integer; max:real;

begin

max:=0;

i:=0;

repeat writeln('Введите число'); read(a);

max:=max+a;

i:=i+1;

until a=0;

writeln('Сумма =',max);

writeln('Средние значение =',max/i);

end.

Если Вы хотите меня поблагодарить, сделайте ответ, как Лучший!

i = -101

while i <= -1:

i = i + 1

print (i)

if i == 0:

w = 100

while w >= 1:

w = w - 1

print (w)

8, 1, 4, 1, 5, 9, 6, 7, 2

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.