Информатика, вопрос задал bigsimon , 8 лет назад

Дан массив из n элементов целого типа. Определить сумму первых шести элементов массива.(Написать программу на Паскале)

Ответы на вопрос

Ответил igor9997799
0
var
  ar: array of integer;
   i, n, s: integer;
 begin
  s := 0;
   readln(n);
   setlength(ar, n);
   for i := 0 to n - 1 do read(ar[i]);
  if(n > 5) then
    for i := 0 to 5 do s := s + ar[i]
  else for i := 0 to n - 1 do s := s + ar[i];
  write(s);
 end.
Ответил bigsimon
0
Ошибка времени выполнения: Индекс находился вне границ массива.
Новые вопросы