Где ошибка? Паскаль. Дан массив из 8-ми элементом. Составить алгоритм, позволяющий найти...

0 голосов
56 просмотров

Где ошибка? Паскаль.
Дан массив из 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.


Информатика (499 баллов) | 56 просмотров
0

Да у Вас почти все написанное - сплошная ошибка

0

Если можно, покажите, как решать, пожалуйста с:

0

У Вас вопрос не стоит так, чтобы написать программу заново. А переписывать этот, простите уж великодушно, бред - себе дороже.

0

Эх, ладно...

Дано ответов: 2
0 голосов
Правильный ответ

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<br>if ((a[i] mod 7)=0) or ((a[i+1] mod 7)=0) then inc(i);
inc(k);
end;
writeln(k);
end.

(1.7k баллов)
0

Всё равно не правильно идёт:с

0

Пары считает на +1

0

Поменяй inc(i) на inc(K) и сл. строчку наоборот на i . Извиняюсь

0 голосов

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

(7.2k баллов)