Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Помогите с задачей, пожалуйста...

5-9 класс

Дан массив из 15 элементов, сгенерированных случайным образом(промежуток от -40 до 80). Вывести все элементы массива, четные и оканчивающиеся на 4.

Vikashvets200 16 сент. 2015 г., 1:19:27 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Aletskaya
16 сент. 2015 г., 2:12:50 (8 лет назад)

const n = 15;
var
  a: array[1..n] of integer;
  i: byte;
begin
  for i := 1 to n do begin
    a[i] := random(121) - 40;
    write(a[i], ' ');
  end;
  writeln;
  for i := 1 to n do
    if(a[i] mod 2 = 0) and (a[i] mod 10 = 4) or (a[i] = 4) or (a[i] = -4) then write(a[i], ' ');
end.

Ответить

Читайте также

PASCAL. нужна помощь. ПОЖАЛУЙСТА помогите решить задачу в PASCAL (если рОЧЕНЬ нужна помощь. ПОЖАЛУЙСТА помогите решить задачу в PASCAL (если решиш - проси

что угодно, помогу)Вот задача - Под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний балл ? Известно , что - в классе учится 14 учеников, - Сумма всех средних баллов аттестата = 100.Известно также , что первый ученик имел средний балл, который составляет 1/ 12 суммы всех средних баллов. Второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . Средние баллы аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . Четвертый ученика на конец года имел такой же балл , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные баллы .Какой средний балл на конец года получил каждЫй?

Помогите решить задачу пожалуйста. в летнем лагере отдыха 86 семиклассников. 8 из них не любят компьютерные игры. 54 семиклассника предпочитают квесты,

62- симуляторы. Сколько ребят с одинаковым удовольствием играют и в квесты, и в симуляторы?



Вы находитесь на странице вопроса "Помогите с задачей, пожалуйста...", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.