С клавиатуры вводятся 17 чисел. Найти произведение
положительных чисел не делящихся на 17. Решить в паскале, методом repeat...until

Не забудь сделать лучшим ;)

Uses crt;
Var   i,pr:integer;     
 a:array[1..17] of integer;
Begin
pr:=1;
i:=1;
writeln(Введите 17 чисел);
Repeat
readln(a[i]);
inc(i); Until i>17;
i:=1;
repeat
if (a[i]>0) and (a[i] mod 17<>0) then
pr:=pr*a[i];
inc(i)
Until i>17;
writeln(Произведение=,pr);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.