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

AnnWer AnnWer    3   30.07.2019 19:10    0

Ответы
маша9393 маша9393  03.10.2020 17:51
Вы значение n не указали перед вызовом for.
ПОКАЗАТЬ ОТВЕТЫ
Ma4oMatoy Ma4oMatoy  03.10.2020 17:51
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика