2 ноября, 04:05

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

Дан массив из 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.

0
Ответы (2)
  1. 2 ноября, 05:26
    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

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

    inc (k) ;

    end;

    writeln (k) ;

    end.
  2. 2 ноября, 05:40
    0
    Вы значение n не указали перед вызовом for.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Где ошибка? Паскаль. Дан массив из 8-ми элементом. Составить алгоритм, позволяющий найти и вывести количество пар элементов массива, в ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы