Регистрация
Moon133
12.12.2021 01:39
Информатика
Есть ответ 👍

ТЕКСТ ЗАДАНИЯ е с
в – с
50
-50
Х
Посмотри на программу и ответы на вопросы:
1. В каком режиме работает гироскопический датчик
2. Мощность правого и левого моторов
3. Порт, к которому подключен гироскопический датчик
Решение впиши в поле для ответов.
СОР
Подпишусь

270
395
Посмотреть ответы 1

Ответы на вопрос:

Ден2811
Ден2811
4,7(63 оценок)

program massiv;

uses crt;

const n=10 {размер массива} 

var i,k: integer;

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

begin

      clrscr;

      write('введите элементы массива: ' );

      k: =1  

      for i: =1 to n do

            begin

                  readln (a[i]);

                  if (a[i]< 0) and (a[i] mod 7)=0 then k: =k*a[i];

            end;

writeln;    

write('исходный массив: ') 

 

for i: =1 to n do   write(a[i]: 3);        

 

  writeln;

writeln('произведение отрицательных элементов кратных 7: ',k);

 

  readkey;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Популярно: Информатика