[Pascal] - [Цикл] - Форум
Пятница, 09.12.2016, 12:35
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] - [Цикл] ([2.06.11] - [Цикл])
[Pascal] - [Цикл]
USéptimoДата: Четверг, 02.06.2011, 11:55 | Сообщение # 1
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
Помогите решить одну задачку))
Quote
Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы. Рекомендуемый вид экрана приведен ниже.

Вычисление среднего арифметического последовательности дробных чисел.

Введите количество чисел последовательности -> 5 Вводите последовательность. После ввода каждого числа нажимайте <Enter> -> 5.4 -> 7.8 -> 3.0 -> 1.5 -> 2.3

Среднее арифметическое введенной последовательности: 4.00 Для завершения нажмите <Enter>

Вот короче программа, который я нашел, но мне нужно чуток по проще, а то там есть ненужные
Code
program esep101;
var  
n, i: integer;  
a, min, max, s: real;  
p: array [1..100] of real;  
BEGIN  
ClrScr;  
a:=0;  
WriteLn ('Введите количество элементов последовательности:');  
ReadLn (n);  
WriteLn ('Введите последовательность');  
for i:=1 to n do  
begin  
Read (p[n]);  
a:=a+p[n];  
end;  
min:=p[1];  
max:=p[1];  
for i:=2 to n do  
begin  
if p[i]>max then max:=p[i];  
if p[i]<min then min:=p[i];  
end;  
s:=a/n;  
WriteLn ('Максимальное число: ', max:8:2);  
WriteLn ('Минимальное число: ', min:8:2);  
WriteLn ('Среднее арифметическое', s:8:2);  
ReadKey  
END..

Добавлено (02.06.2011, 11:55)
---------------------------------------------
biggrin

 
KOT_B_MEIIIKEДата: Четверг, 02.06.2011, 18:12 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code
program esep101;
var   
n, i: integer;   
p,s: real;   
   
BEGIN   
ClrScr;   
s:=0;   
WriteLn ('Введите количество элементов последовательности:');   
ReadLn (n);   
WriteLn ('Введите последовательность');   
for i:=1 to n do   
begin   
Read (p);   
s:=s+p;   
end;   
s:=s/n;   
WriteLn ('Среднее арифметическое', s:8:2);   
Read(i);   
END.

что-нибудь такое)
 
USéptimoДата: Четверг, 02.06.2011, 18:53 | Сообщение # 3
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
KOT_B_MEIIIKE, вооо )) спс, я твой должниК))
 
KOT_B_MEIIIKEДата: Четверг, 02.06.2011, 19:01 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
все так говорят))) пожалуйста)
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] - [Цикл] ([2.06.11] - [Цикл])
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016