Нужна . задали слишком много для паскаля. ничего не успеваю. буду хотя бы за несколько . стоимость всего 35 . массивы. обработка массива. 1. задать, с датчика случайных чисел одномерный вещественный массив с именем h, состоящий из десяти элементов и сложить все отрицательные элементы. 2. задать, вводом с клавиатуры двумерный целый массив с именем h, состоящий из трёх строк и четырёх столбцов и перемножить все ненулевые элементы. 3. задать вводом с клавиатуры строковый массив d[1 .. 4] и подсчитать, сколько слов имеют вторую букву о. 4. задать вводом с клавиатуры массивы в[1 .. 4], где записаны фамилии участников соревнования, и а[1 .. 4], где записано время пробега каждого. вывести на экран фамилию победителя и результат.
278
317
Ответы на вопрос:
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 у участника петров
Қазақ графикасы — қоғамдағы түрлі тарихи-әлеуметтік өзгерістерге сәйкес бірнеше жазу нұсқаларына (араб, латын, кирил жазулары) бағындырылған, фонематикалық принципке сүйенетін қазақтың дыбыстық жазуы
Объяснение:
Графика (гр. graphike — жазылған, өрнектелген) — графемалар, тыныс, екпін белгілері т.б. жазу құралдар жиынтығы, фонемалық жазудағы графема мен фонема арасындағы қатынастар жүйесі және оларды зерттейтін тіл білімінің бір саласы.
Қазіргі қазақ графикасы әріптерінің жазылуы тәсіліне және өрнегіне қарай жазу графикасы мен баспа графикасы болып бөлінеді. Қазақ жазу графикасындағы әріптердің нобайы көне орыс жазуындағы дыбыстар нобайының негізінде пайда болған.
Популярно: Информатика
-
иван205403.06.2022 23:57
-
Ульяна333001.09.2022 09:20
-
amelisova0609.01.2023 11:19
-
Mahb23.08.2020 18:43
-
Мариам206518.11.2021 09:43
-
Артур1505150524.08.2020 00:03
-
Котеня24429.11.2021 19:08
-
vadimvadimkuz09.06.2023 21:10
-
isshaixyt501.03.2021 10:02
-
maxtihvin26.06.2023 17:50