Решаем задачи Абрамян на Паскале. Array23

Array23. Дан массив размера $$N$$ и целые числа $$K$$ и $$L$$ ($$1 \lt K \leq L \leq N$$). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от $$K$$ до $$L$$ включительно.

Решение:

var
  a:array[1..10] of integer;
  N,K,L,i,Sum:Integer;

begin
  Write('N: ');
  Readln(N);
  Write('K: ');
  Readln(K);
  Write('L: ');
  Readln(L);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  Sum:=0;
  for i:=1 to k-1 do Sum:=Sum+a[i];
  for i:=l+1 to n do Sum:=Sum+a[i];

  Writeln (Sum/((k-1)+(n-l)));
  Readln;
end.

var

a:array[1..10] of integer;

N,K,L,i,Sum:Integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Write('L: ');

Readln(L);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Sum:=0;

for i:=1 to k-1 do Sum:=Sum+a[i];

for i:=l+1 to n do Sum:=Sum+a[i];

Writeln (Sum/((k-1)+(n-l)));

Readln;

end.

Другие задачи из раздела Array можно посмотреть здесь.

Комментарии 2

//PascalABC.NET
begin
  var list:=Lst(0,1,2,3,4,5,6,7,8,9);
  var k:=4;
  var l:=5;
  list:=list[:k]+list[l+1:];
  writeFormat('Сумма: {0}, Среднее арифметическое: {1}',list.Sum,list.Average);
end.

//PascalABC.NET

var list:=Lst(0,1,2,3,4,5,6,7,8,9);

var k:=4;

var l:=5;

list:=list[:k]+list[l+1:];

writeFormat('Сумма: {0}, Среднее арифметическое: {1}',list.Sum,list.Average);

Ответить

Hell

18.03.2019 в 22:14

А можно этот код в visual basic?

Ответить

Решаем задачи Абрамян на Паскале. Array23

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ