Информатика

Помогите с программированием пожалуйста ( Pascal ).
Дан массив случайных целых чисел D из промежутка [0;10], состоящий из 10 элементов. Составить программу вычисления суммы трех элементов. В качестве подпрограммы оформить вычисление суммы трех последовательно расположенных элементов массива с номерами от k до m: D[1], D[2], D[3], D[3], D[4], D[5], D[4], D[5],D[6].


<< Предыдущий вопрос Следующий вопрос >>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,k,k0:integer;
    s:real;
begin
 clrscr;
  writeln('Массив :');
   for i:=1 to n do
    begin
     write(i,' = ');
      read(a[i]);
    end;
    k:=1;
  for i:=1 to n do
   if a[i]<0 then
    begin
     s:=s+a[i];
     inc(k);
    end
   else
     begin
      if a[i]>0 then
      inc(k0);
     end;
  s:=s/k;
writeln;
  if (k=1) and (k0=0) then
   writeln('Положительных или отрицательных элементов в массиве нет,среднее ариф-ское = 0')
  else
   writeln('Среднее ариф-ского отрицательных элементов массива =',s:0:2);
 
 
 readkey;
end.

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

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы