Из Истории - 1) Наполеон Бонапарт - французский государственный деятель. 2) Христофор Колумб - открыл новый свет. Из Географии - 1) Россия - самое большое государство по площади. 2) В Китае больше всего населения. Из биологии - 1) Растения производят кислород. 2) У коровы есть вымя. Из математики - 1) 2+2=4 2) 6-2=4 Из Русского языка - 1) В русском алфавите - 32 буквы. 2) В сложном предложении 2 грамматические основы. Из Литературы - 1) А.С. Пушкин - русский поэт. 2) "Войну и Мир" Написал Л.Н. Толстой. Из информатики - 1) Информатика - наука о работе с информацией. 2) Вирт Никлаус - специалист в области информатки.
Veselova
29.03.2021
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer; Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);End.
можешь хотяби на русский перевести ибо не понятно