Задать вопрос
13 июля, 12:55

Дан массив состоящий из 6-ти элементов:

а) найти максимальный элемент массива

б) найти сумму четных элементов и произведение не четных элементов.

+1
Ответы (1)
  1. 13 июля, 13:42
    0
    Var

    a: array [1 ... 6] of integer;

    i, p, s, max: integer;

    begin

    max : = a[i];

    p:=1;

    s:=0;

    for i: = 1 to 6 do

    if a[i] > max then

    max : = a[i]; / / находим максимальный

    if a[i] mod 2 = 0

    then s: = s + a[i]//находим сумму четных

    else p: = p*a[i]; //находим произведение нечетных

    writeln (max) ; / / вывод максимального

    writeln (s) ; / / вывод суммы четных

    writeln (p) ; / / вывод произведения нечетных

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