Напишите программу, которая считывает с клавиатуры n чисел и затем выводит
Напишите программку, которая считывает с клавиатуры n чисел и потом выводит на экран сумму и среднее арифметическое положительных чисел. в паскаль
Задать свой вопрос1 ответ
Valentina Moskvich
uses crt;
var
n: integer; Количество чисел
a: array [1..50] of integer; Массив чисел
i: integer; Переменная для прохода по массиву
j: integer; Переменная для прохода по массиву
sum: integer; Сумма
sr: integer; Среднее арифметическое
tmp: integer; Промежная переменная
begin
sum := 0;
sr := 0;
writeln(Введите размер массива);
readln(n);
Цикл ввода массива
for i := 1 to n do
begin
writeln(Введите +i , число);
readln(tmp);
if tmp gt; 0 then
begin
a[i] := tmp;
end
end;
Цикл подсчета суммы и среднего арифметического
for j := 1 to n do
begin
sum := sum + a[j];
sr := sum div n;
end;
writeln(Сумма чисел: +sum);
writeln(Среднее арифметическое +sr);
end.
var
n: integer; Количество чисел
a: array [1..50] of integer; Массив чисел
i: integer; Переменная для прохода по массиву
j: integer; Переменная для прохода по массиву
sum: integer; Сумма
sr: integer; Среднее арифметическое
tmp: integer; Промежная переменная
begin
sum := 0;
sr := 0;
writeln(Введите размер массива);
readln(n);
Цикл ввода массива
for i := 1 to n do
begin
writeln(Введите +i , число);
readln(tmp);
if tmp gt; 0 then
begin
a[i] := tmp;
end
end;
Цикл подсчета суммы и среднего арифметического
for j := 1 to n do
begin
sum := sum + a[j];
sr := sum div n;
end;
writeln(Сумма чисел: +sum);
writeln(Среднее арифметическое +sr);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Здравствуйте
Меня зовут Виталий, я AdOps-аналитик компании Adfinity.pro
Заинтересовал ваш проект obrazovalka.com
Думаю сможем увеличить
Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и
Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен
Кыргыз тили.
За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза
Математика.
Периметр равнобедренного треугольника ABC (AB=BC) равен 34 см. Периметр треугольника ABM,
Разные вопросы.
«Металлическая болванка, нагрета до 420C, охлаждается в воздухе, температура которого 20C,
Алгебра.
xdy=(x+y)dx, y(1) = 0. по условию Коши помогите решить
Алгебра.
Облако тегов