На паскаль 1.с клавиатуры вводится число. осуществить линейный поиск элемента в массиве. вывести номер элемента, равного данному, либо сообщение о том, что такого элемента в массиве нет. 2.выполнить реверс массива из 10 элементов, заполненного случайными числами в интервале [-100; 100]. 3.найти произведение всех элементов массива из 5 элементов, заполненного с клавиатуры.

220

345

Посмотреть ответы 2

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

volodjpanchuk19

Информатика

4,5(9 оценок)

Первая программа может выглядеть так: uses crt; const n=10; type mas=array [1..n] of integer; var a: mas; i, x: integer; priznak: boolean; begin clrscr; priznak: =false; writeln(' massiv: '); for i: =1 to n do begin a[i]: =-100+random(200); write(a[i]: 5); end; writeln; write(' x = '); readln(x); writeln; for i: =1 to n do if x=a[i] then begin writeln (' x = ', a[i], ' index = ', i); priznak: =true; end; if priznak=false then writeln (' '); readln; end. 2. а вот реверс: uses crt; const n=10; type mas=array [1..n] of integer; var a: mas; i: integer; begin clrscr; writeln(' massiv: '); for i: =1 to n do begin a[i]: =-100+random(201); write(a[i]: 5); end; writeln; writeln(' revers: '); for i: =n downto 1 do write(a[i]: 5); writeln; readln; end. и. наконец, последняя программа: uses crt; const n=5; var i, x : integer; p: longint; begin clrscr; p: =1; writeln(' wwod massiva: '); for i: =1 to n do begin readln (x); p: =p*x; end; writeln; writeln(' p = ', p); writeln; readln; end.

Dag18y5557hvvhi

Информатика

4,7(18 оценок)

Program n_5; var a, b: integer; begin writeln('введите 2 целых числа '); readln(a); read(b); if a > b then write(b, ' < ', a); if a < b then write(a, ' < ', b); if a = b then write(a, ' = ', b); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.