Войти Регистрация Спроси ai-bota

Склавиатуры вводятся 10 чисел найти среднее арифметическое чисел и сумму положительных чисел

Ответ:

Томара85

20.08.2020 14:49

Var
A,Sr,Sp:real;
i:integer;
Begin
Sr:=0;
Sp:=0;
For i:= 1 to 10 do
    Begin
    Read(A);
    Sr:=Sr+A;
    if A>0 then Sp:=Sp+A;
    End;
WriteLn('Среднее арифметическое: ',Sr/10);
WriteLn('Сумма положительных: ',Sp)
End.

0,0(0 оценок)

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

ozorkaltseva

16.07.2022 21:14

Написать программу для решения задач: 1. Рассчитать площадь и периметр квадрата по заданной длине стороны 2. Даны два неотрицательных числа a и b. Найти их среднее геометрическое,...

PolinaReyblogger

13.06.2021 17:15

скласти програму мовою Python , в якій при введенні дійсного числа на екрані виводиться: число від ємне або число невід ємне 7 клас...

safievd6Димас

20.05.2021 05:01

2. Опишите порядок действий создания трехмерной модели цилиндра в программе Sketch Up. Инструменты SketchUp Орбита (Orbit) Выдавить (Puch/Pull) Круг (Circle) Прямоуголь...

УмнейшаяДокторНаук

14.01.2020 15:28

Домашнее задание Дано число N (1≤N≤10¹²). Напи- шите программу, которая опреде- ляет, сколько раз цифра 7 встре- чается в этом числе....

Тимур0403

12.02.2023 11:08

Дано число Х. Якщо воно належить інтервалу [-2,] 5]або інтервалу [7, 10] то надрукувати „Так, у протилежному випадку надрукувати „ Hi^...

hitechnic669857

20.10.2021 18:54

Преобразуй цикл с постусловием в цикле с параметром так чтобы результат его работы не изменилась...

sergei4404

13.06.2021 20:40

1) Запишіть рядок оголошення змінних типу таблична величина з іменем х, що складається з елементів дійсного типу з номерами від 1 до 50. 2) Обчисліть значення змінної...

zlatalobacheva

21.02.2023 06:11

На вход программы подаеться последовательность чисел. В результате работы программа выводит неубывающую последовательность входной последовательности с максимальной длиной...

Alecsa20033

20.12.2020 13:45

У Паши дома банки для круп в форме кубов разного размера (с разными рёбрами). Вчера к нему зашёл сосед и попросил одолжить риса. Паша пересыпал немного из большой банки...

Egoraptor

29.06.2022 05:00

Два любимых праздника Маши — день рождения и День святого Валентина (14 февраля). Машин день рождения в декабре, N-го числа. Помоги ей определить, сколько дней со дня...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку