Предмет: Информатика, автор: bigsimon

Дан массив из 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
Ошибка времени выполнения: Индекс находился вне границ массива.
Похожие вопросы
Предмет: Математика, автор: mehdiyevaxatun24