Задать вопрос
30 марта, 16:23

Дан массив из пяти чисел, найдите сумму чисел кратных пяти и чётных и произведение остальных чисел. Язык паскаль. Помогите!

+3
Ответы (1)
  1. 30 марта, 19:15
    0
    Const N = 5;

    var a: array [1 ... N] of integer;

    sum, pr: integer;

    begin

    sum:=0; pr:=1;

    for var i:=1 to N do begin

    read (a[i]) ;

    if (a[i] mod 5=0) and (a[i] mod 2=0) then sum+=a[i]

    else pr*=a[i]

    end;

    println (sum, pr) ;

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