Регистрация
Ilya0902
27.05.2022 14:15
Информатика
Есть ответ 👍

Дан целочисленный массив размером 18 элементов. найти сумму чисел меньше 10.
паскаль​

125
146
Посмотреть ответы 3

Ответы на вопрос:

alileman
alileman
4,7(86 оценок)

const n=18;

var  

mas: array[1..n] of integer;

i,sum: integer;

begin

  sum: =0;

  write('введите элементы массива: ');

  for i: =1 to n do

    begin

    write(i, ' элемент: ');

    readln(mas[i]);

    if mas[i] < 10 then

      sum: =sum+mas[i];

    end;

      writeln('сумма элементов массива меньших 10: ', sum);

end.

AMORVL
AMORVL
4,8(78 оценок)

ответ:

объяснение:

program arraysum;

var

    numbers : array[1..18] of real;

    result : real;

    i : integer;

begin

    result : = 0;

    for i: = 1 to 18 do begin

        write('input ', i ,'th element of array');

        readln (numbers[i]);

    end;

    for i: = 1 to 18 do begin

        if numbers[i] < 10 then result : = result + numbers[i];

    end;

    writeln('result = ', result: 5: 2);

end.

BooWim
BooWim
4,5(22 оценок)
Логическая формула тревиальная: "а" (где а - быть счастливым) . логическая формула для этого высказывания будет: "a& b"

Популярно: Информатика