ars-trushakova
?>

Кестені қажетті ақпараттармен толтырыңдар (1.3-кесте 1.3-кестеАдамКОМПЬЮТЕРКызметіАқпаратты сақтауАқпаратты өңдеуАқпаратты қабылдауЕнгізу құрылғысыАқпаратты жіберуСөз, қозғалтқышжүйелері​​

Информатика

Ответы

misstimarina2016

можешь хотяби на русский перевести ибо не понятно

ЮлияДаниил520
Из Истории -
1)  Наполеон Бонапарт - французский государственный деятель.
2) Христофор Колумб - открыл новый свет.
Из Географии -
1) Россия - самое большое государство по площади.
2) В Китае больше всего населения.
Из биологии -
1) Растения производят кислород.
2) У коровы есть вымя.
Из математики -
1) 2+2=4
2) 6-2=4
Из Русского языка -
1) В русском алфавите - 32 буквы.
2) В сложном предложении 2 грамматические основы.
Из Литературы -
1) А.С. Пушкин - русский поэт.
2) "Войну и Мир" Написал Л.Н. Толстой.
Из информатики -
1) Информатика - наука о работе с информацией.
2) Вирт Никлаус - специалист в области информатки.
Veselova
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Кестені қажетті ақпараттармен толтырыңдар (1.3-кесте 1.3-кестеАдамКОМПЬЮТЕРКызметіАқпаратты сақтауАқпаратты өңдеуАқпаратты қабылдауЕнгізу құрылғысыАқпаратты жіберуСөз, қозғалтқышжүйелері​​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

seymurxalafov05
Кузнецов
Роман
a-lossev111
ynikolaev2657
osipovasalex5316
Ямпольский
inulikb
sjmurko
Баранов276
ninazholnerova9
Zhilinoe134
dima-a
Мартынова1638
Гарик383