Помогите, пожалуйста, очень, очень надо

39

Помогите, пожалуйста, очень, очень надо. Написать программу с помощью цикла, которая позволяет ввести с клавиатуры последовательность из трехдробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности. Ниже представлен рекомендуемый вид экрана во время работы программы:

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

ответить

в избранное

73

veduga

23 августа 2022

var a: array[1… 3] of real; x: real; i: shortint; beginwriteln ('После ввода каждого числа нажмите '); a[1]: =0; a[2]: =0; a[3]: =0; for i: =1 to 3 do beginwrite ('->'); readln (a[i]); x: =(a[1]+a[2]+a[3]) /i)*100; x: =round (x); x: =x/100; writeln ('Введено чисел: ',i,' Среднее арифметическое: ',x); end; end.

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

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

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

Смотрите также:

Для записи текста использовали 64-символьный алфавит

Во сколько раз увеличится объем текстовой информации, если каждый символ кодировать не одним байтом, а 10 битами

Паскаль, помогите! В числовом массиве из 10 элементов, заданных случайным образом от -100…

Написать программу которая выведет элементы массива в столбик с 3-его по 7-йэлемент

Составьте программу для ввода с клавиатуры в массив 7 целых чисел и вывода этих чисел в обратном порядке для 9 класса!

Помогите пожалуйста! Срочно!

Угадайте правило шифрования и расшифруйте слова: ткафетра, ткнитсни, тицратна, ланигоро

Помогите решить задачу) какой объем памяти в байтах будет занимать следующий двоичный код:…

Некоторый алфавит содержит 128 символов. Сообщение содержит 10 символов. Определите информационный объем сообщения

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...