Даны натуральное число n, целые числа a1,a2,a3...,an. найти количество и суммы тех членов данной последовательности, которые делятся на 5 и не делятся на 7 Прошу написать программу в Паскале
возможно опечатка
А какое нам тут дело до сборника? Этот Сервис не предназначен для решения чьих-то задач, тут автор задачи тот, кто её опубликовал и все вопросы к нему, поэтому никакие ссылки на "вот так в сборнике" не могут быть приняты.
хорошо, буду знать
первый раз
выкладываю
Видимо, Вы плохо прочитали Правила при регистрации, хотя и обязались их выполнять. Там четко написано, что автор - Вы и вопросы к Вам))
Еси первый - вот вам еще одно "местное негласное правило": если язык программирования не указан, автор ответа может использовать любой. А у Вас даже не написано, что надо - программу или алгоритм, поэтому и словесное описание, и блок-схему тоже будут считаться решением.
огромное Вам спасибо
Пожалуйста. Поэтому советую исправить условие.
Const nn=100; { максимальное значение n } var i,n,k,s:integer; a:array[1..nn] of integer; begin Write('Укажите натуральное число n: '); Read(n); Randomize; k:=0; s:=0; Writeln('Сформированная последовательность'); for i:=1 to n do begin a[i]:=Random(99)+1; { случайное число на интервале [1;99] } Write(a[i]:3); if (a[i] mod 5=0) and (a[i] mod 7 <>0) then begin Inc(k); s:=s+a[i] end; end; Writeln; Writeln('Количество чисел, кратных пяти: ',k); Writeln('их сумма равна ',s) end. Тестовое решение: Укажите натуральное число n: 39 Сформированная последовательность 15 83 69 64 56 50 13 70 55 40 22 82 45 67 31 36 16 52 67 44 63 23 52 62 89 33 40 32 17 14 98 15 5 58 46 68 57 72 90 Количество чисел, кратных пяти: 9 их сумма равна 355
Внесено изменение с тем, чтобы решение соответствовало исправленному условию.