М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
474886
474886
09.01.2020 11:40 •  Информатика

Дан массив состоящий из 9 элементов со значениями -3 до 3. подсчитать кол-во отрицательных чисел

👇
Ответ:
Const n=9;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(7)-3;
 write(a[i]:4); 
end;
writeln;
k:=0; 
for i:=1 to n do if a[i]<0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
   3  -2   1   1  -2   0   3   0   0
k = 2
4,5(2 оценок)
Открыть все ответы
Ответ:
nastyakot11
nastyakot11
09.01.2020

Моя сім’я — це тато, мама, я і моя молодша сестра Наталка. У нас, як і у будь-якій іншій сім’ї, є свої традиції. Наприклад, щонеділі ми всі разом їздимо в гості до бабусі й дідуся. Бабуся до нашого приїзду готує смачний обід, пече печиво. Після обіду ми з сестрою допомагаємо бабусі прибрати зі столу. Потім ми сидимо у вітальні та розмовляємо. Часто дідусь або бабуся розповідають якісь цікаві історії зі свого життя.

Щоліта ми з батьками обов’язково виїжджаємо на природу. У нас є своє улюблене місце для відпочинку на березі річки, біля лісу. Ми приїжджаємо туди на тиждень і ставимо намет. Днем засмагаємо на сонечку, купаємося, прогулюємося лісом. Часто тато ловить у річці рибу, а мама тут же готує її на вогнищі. Я дуже люблю вечірні посиденьки біля багаття з батьками та сестрою.

Звичайно ж, ми завжди разом святкуємо Новий рік і наші дні народження. У ці свята до нас в гості приходять не тільки бабуся з дідусем, а й інші родичі.

Сімейні традиції відіграють дуже важливу роль у житті людей. Вони вчать дітей поважати старших, зберігати історію своєї родини. Завдяки традиціям батьки та діти проводять більше часу разом. А це значить, що сім’я стає більш дружною і міцною.

Объяснение:

4,7(25 оценок)
Ответ:
ktjy123
ktjy123
09.01.2020
Var
a:array[1..20] of integer;
i,n,min,max,s:integer;
begin
randomize;
s:=0;
writeln ('Введи кол-во элементов в массиве');
readln(n);
for i:=1 to n do
a[i]:=random(35)-10;
for i:=1 to n do
if i mod 2 = 0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do
if i mod 2 >0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s:=s+a[i];
writeln ('Сумма членов кратных 3 или 5 = ',s); 
min:=a[1]; 
max:=a[1]; 
for i:=2 to n do begin
 if a[i]<min then min:=a[i]; 
if a[i]>max then max:=a[i];
 end; 
writeln ('Максимум=',max); 
writeln('Минимум=',min); 
end.
4,7(94 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ