50

1. Написать программу…

grandseo 05 марта 2023

1. Написать программу, которая выводит на экран сумму средних арифметических значений двух вещественных массивов из 10 элементов.2. Написать прогрумму, которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.

категория: информатика

46

Я так понимаю, что «значение массива» — это сумма его элементов. Если это так, то вот решение: 1) Var a,b: array[1… 10] of real; s,k: real; i: integer; Begin wtiteln ('Init A: ') for i: =1 to 10 do begin readln (k); a[i]=k; end; wtiteln ('Init B: ') for i: =1 to 10 do begin readln (k); b[i]=k; end; s: =0; k: =0; for i: =1 to 10 do k: =k+a[i]; k: =k/10; for i: =to 10 do s: =s+b[i]; s: =(s/10)+k; writeln (s); End.2) Var a,b: array[1… 10] of real; r,k: real, i: integer; Begin writeln ('Init A: "); for i: =1 to 10 do begin readln (k); a[i]: =k; end; writeln ('Init B: "); for i: =1 to 10 do begin readln (k); b[i]: =k; end; r: =0 k: =0; for i: =1 to 10 do k: =k+a[i]; for i: =1 to 10 do r: =r+b[i]; r: =r-k; writeln (r); End.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...