Предмет: Информатика,
автор: bigsimon
Дан массив из n элементов целого типа. Определить сумму первых шести элементов массива.(Написать программу на Паскале)
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
Ошибка времени выполнения: Индекс находился вне границ массива.
Похожие вопросы
Предмет: Математика,
автор: mehdiyevaxatun24
Предмет: Математика,
автор: nnarzazz
Предмет: Математика,
автор: EastGrum
Предмет: Физика,
автор: arsen20002012
Предмет: Химия,
автор: tanyamikhaelis