Где ошибка? Паскаль.

Дан массив из 8-ми элементом. Составить алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делиться на 7.

var

a:array[1 ... 8] of integer; k, i, n:integer;

begin k:=0;

for i:=1 to n-1 do

readln (a[i]) ;

for i:=1 to n-1 do

if (a[i] mod 7 = 0) or (a[i+1] mod 7 = 0) then k:=k+1;

writeln (k) ;

end.

Question

Информатика

Хиония

12 января, 01:41

Где ошибка? Паскаль.

Дан массив из 8-ми элементом. Составить алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делиться на 7.

var

a:array[1 ... 8] of integer; k, i, n:integer;

begin k:=0;

for i:=1 to n-1 do

readln (a[i]) ;

for i:=1 to n-1 do

if (a[i] mod 7 = 0) or (a[i+1] mod 7 = 0) then k:=k+1;

writeln (k) ;

end.

+2

Ответы (2)

Знаете ответ на вопрос?

Агарь · Answer 1

Вы значение n не указали перед вызовом for.

Кандидий · Answer 2

Vara:array[1 ... 8] of integer;

k, i, n:integer;

begin

k:=0;

n:=8;

for i:=1 to n do

read (a[i]) ;

i:=1;

while i< = (n-1) do begin

if ((a[i] mod 7) = 0) or ((a[i+1] mod 7) = 0) then inc (i) ;

inc (k) ;

end;

writeln (k) ;

end.