Дан массив из 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.
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
Ошибка времени выполнения: Индекс находился вне границ массива.
Новые вопросы
Химия,
2 года назад
Химия,
2 года назад
Математика,
8 лет назад
Литература,
8 лет назад
Алгебра,
9 лет назад
Математика,
9 лет назад