В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Darya0192
Darya0192
13.02.2020 07:13 •  Информатика

Көмек керек информатика
1 тапсырма

Показать ответ
Ответ:
glebpoltorak
glebpoltorak
16.04.2021 20:47

const

 n = 25;

 

var

 a: array[1..n] of integer;

 k0, k, i, s: integer;

 p: real;

 

begin

 s := 0;

 p := 1;

 k := 0;

 k0 := 0;

 for i := 1 to n do

 begin

   a[i] := -n div 2 + random(n);

   Write(a[i]:4);

   if a[i] = 0 then

     inc(k0);

   if a[i] > 0 then

     s := s + a[i];

   if a[i] < 0 then

   begin

     p := p * a[i];

     inc(k);

   end;

 end;

 WriteLn;

 Writeln('Сумма: ', s);

 Writeln('Количество 0: ', k0);

 if k <> 0 then

   Writeln('Произведение: ', p)

 else

   Writeln('Нет таких чисел. ')

end.

Объяснение:

0,0(0 оценок)
Ответ:
eugenegovvbowxpxt
eugenegovvbowxpxt
05.06.2020 15:19

1)

#1 color of rainbow is red

#2 color of rainbow is orange

#3 color of rainbow is yellow

#4 color of rainbow is green

#5 color of rainbow is cyan

#6 color of rainbow is blue

#7 color of rainbow is violet

2)

1, 2, 3, one, two, three

3)

0 0

1  1

2 4

3 9

Кiнець циклу

4)

15

5)

1

4

9

16

25

36

49

64

81

100

Объяснение:

1) Значения из массива выводятся по очереди благодаря циклу, подставляя вперед значение i

2) Все значения из массива по очереди выводятся в консоль

3) Цикл от 0 до 3 в котором сначала выводится итератор, а затем итератор в степени 2

4) Цикл в котором складываются числа от 1 до 5

5) Цикл в котором выводится итератор в степени 2, до тех пор пока итератор не станет равен 11

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота