Задать вопрос
4 июня, 01:57

Напишите программу (паскаль) нахождения суммы элементов массива А[1 ... 15], кратных 5 и меньших 50. Массив заполняется произвольными числами в диапазоне да 100

+2
Ответы (1)
  1. 4 июня, 04:31
    0
    Const N = 15;

    Var

    A:array[1 ... N] of integer;

    i:integer;

    S:real;

    Begin

    S:=0;

    Write ('Исходный массив: ') ;

    For i: = 1 to N do

    Begin

    A[i]:=random (100) ;

    Write (A[i],' ') ;

    if (A[i]<50) and (A[i] mod 5 = 0) then S:=S+A[i];

    End;

    WriteLn;

    WriteLn ('S = ', S) ;

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Напишите программу (паскаль) нахождения суммы элементов массива А[1 ... 15], кратных 5 и меньших 50. Массив заполняется произвольными ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы