Работа должна содержать 2 программы (по программе для каждого орнамента) Рисунок орнамента должен повторяться 2 раза (как в примере). Программа должна содержать циклы: нц ___ раз = = кц вложенные циклы (см. пример). В примере Робот находится в верхнем левом углу. Работу

109

471

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

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

alinavasileva22

Информатика

4,8(45 оценок)

Const n = 10; var h: array[1..n] of real; i: integer; s: real; begin randomize; write('элементы массива: '); s : = 0; for i : = 1 to n do begin h[i] : = (100 * random - 50) / 3; write(h[i]: 0: 3, ' '); if h[i] < 0 then s : = s + h[i] end; writeln(#13#10, 'сумма отрицательных элементов равна ', s: 0: 3) end. тестовое решение: элементы массива: 9.159 -12.427 11.448 -7.493 -12.976 -2.252 9.923 -4.759 -7.867 5.567 сумма отрицательных элементов равна -47.774 const m = 3; n = 4; var h: array[1..m, 1..n] of real; i, j: integer; p: real; begin p : = 1; for i : = 1 to m do begin write('введите через пробел элементы строки ', i, ': '); for j : = 1 to n do begin read(h[i, j]); if h[i, j] < > 0 then p : = p * h[i, j] end end; writeln('произведение ненулевых элементов равно ', p: 0: 3) end. тестовое решение: введите через пробел элементы строки 1: -2.1 3.7 0.46 17 введите через пробел элементы строки 2: -3.54 0 11.7 2.222 введите через пробел элементы строки 3: 3 -5.1 -4.7 0 произведение ненулевых элементов равно 402114.968 const n = 4; var i, k: integer; d: array[1..n] of string; begin k : = 0; for i : = 1 to n do begin write('введите слово ', i, ': '); readln(d[i]); if (d[i][2]='о') then k: = k + 1 end; writeln('количество слов со второй буквой "о" равно ', k) end. тестовое решение: введите слово 1: информатика введите слово 2: компьютер введите слово 3: процессор введите слово 4: монитор количество слов со второй буквой "о" равно 2 const n = 4; var i, imin: integer; a: array[1..n] of real; b: array[1..n] of string; min: real; begin min : = 1000; for i : = 1 to n do begin write('введите фамилиию участника ', i, ': '); readln(b[i]); write('введите время участника ', i, ': '); readln(a[i]); if a[i] < min then begin min : = a[i]; imin : = i end; end; writeln('лучшее время ', a[imin], ' у участника ', b[imin]) end. тестовое решение: введите фамилиию участника 1: иванов введите время участника 1: 8.3 введите фамилиию участника 2: петров введите время участника 2: 7.9 введите фамилиию участника 3: сидоров введите время участника 3: 8.7 введите фамилиию участника 4: васечкин введите время участника 4: 8.0 лучшее время 7.9 у участника петров

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

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

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

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

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

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

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

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

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

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