| ← Март 2016 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
13
|
||
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
24
|
25
|
26
|
||
|
28
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 18.03.2016, 11:38 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, ogm1! Код (Pascal) :: выделить код var
a,b:array[1..10]of real;
i,n,k:integer;
s:real;
begin
{вводим размер массива}
repeat
write('Enter N:');
readln(n)
until(1<=n)and(n<=10);
{вводим К}
repeat
write('Enter K:');
readln(k)
until(3<=k)and(k<=n);
{вводим массив}
for i:=1 to n do
begin
write('Enter a[',i,']:=');
readln(a[i])
end;
{контрольный вывод}
writeln('Massiv:');
for i:=1 to n do
write(a[i]:8:4);
writeln;
{среднее арифметическое}
s:=0;
for i:=1 to k do
s:=s + a[i];
a[k]:=s/k;
{выводим результат}
writeln('Result:');
for i:=1 to n do
write(a[i]:8:4);
end.Я бы первым вводил К, т.к. при вводе N, к примеру 2, К выйдет за выбранные пределы. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
