Помогите найти ошибку в задаче

[Filosofijka]

Var n,i: integer;
A, B,r: array [1..n] of integer;
n,i: integer;
Begine
writeln ('введите 2 числа A и B')
for i:= 1 to n do
readln (A[i]);
for i := 1 to n do
redln (B[i]);
for i:= 1 to n do
r [i]:= A [i]+ B[i];
r [i] mod 5
r [i] mod 13
write ([i],n);
end

помогите, пожалуйста, найти ошибку
Пишет, что на месте n ожидалось константное выражение

[alex_fcsm]

Сообщение от Filosofijka

Var n,i: integer;
A, B,r: array [1..n] of integer;
n,i: integer;
Begine
writeln ('введите 2 числа A и B')
for i:= 1 to n do
readln (A[i]);
for i := 1 to n do
redln (B[i]);
for i:= 1 to n do
r [i]:= A [i]+ B[i];
r [i] mod 5
r [i] mod 13
write ([i],n);
end
помогите, пожалуйста, найти ошибку
Пишет, что на месте n ожидалось константное выражение

Что должна делать Ваша программа? Много здесь ошибок. например:
write ([i],n); что вы хотите вывести ? write (r[i],n);

А n нужно константой делать
const n=10;
.......

[Filosofijka]

я заметила, что повторила
n,i: integer;
Программа должна найти сумму чисел на промежутке, кратных 5 и 13

[alex_fcsm]

Сообщение от Filosofijka

я заметила, что повторила
n,i: integer;
Программа должна найти сумму чисел на промежутке, кратных 5 и 13

На каком промежутке? может быть найти числа кратные 5 и 13(причем одновременно) из массива r(r=A+B)?

ТО что Вы написали можно подправить, но по условию ли непонятно

const n=10;
Var i: integer;
    A,B,r: array [1..n] of integer;

Begin
writeln ('введите  числа для массива A');
for i:= 1 to n do
readln (A[i]);
writeln ('введите  числа для массива B');
for i := 1 to n do
readln (B[i]);
for i:= 1 to n do
begin
 r[i]:= A[i]+ B[i];
 r[i]:= r[i] mod 5;
 r[i]:=r[i] mod 13;
 write (r[i],' ');
end;
end.

Сформулируйте четко что дано и что нужно найти

[Filosofijka]

Задача была:
Найти сумму всех чисел на промежутке от A до B, кратные 5 и 13. А и В вводятся с клавиатуры

[alex_fcsm]

Сообщение от Filosofijka

Задача была:
Найти сумму всех чисел на промежутке от A до B, кратные 5 и 13. А и В вводятся с клавиатуры

Вот так-то лучше

Зачем Вам два массива?

Var i,a,b,sum: integer;
Begin
writeln ('input A')
readln (A);
writeln('Input b')
readln (B);
sum:=0;
for i:= a to b do
.....

Дальше доделайте сами. Сможете?

P.S. Число должно одновременно делиться на 5 и 13?

[Filosofijka]

Спасибо, огромное!!!! Дальше сама

[Filosofijka]

Я решила так

var A, B, i, sum: integer;

begin
sum := 0;
read(A, B);
for i := A to B do
  if (i mod 5 = 0) and (i mod 13 = 0) then
    sum := sum + i;
writeln(sum);
end.

Но мне сказали, что это неверное решение. Нужны несколько циклов одном. Всё, все мои познания иссякли

[Filosofijka]

Помогите, пожалуйста с задачей

[Hollander]

Это самое оптимальное решение, использование внутренних циклов здесь ни к чему. Скажи своему преподу, что он не прав.