Question

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

Answer 1

Ответ:

Объяснение:

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.

Answer 2

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.

Answer 3

Ответ: Для решения задачи можно использовать следующий алгоритм на языке Паскаль:

- Объявить целочисленный массив A размером 18 элементов и переменную S для хранения суммы. - Заполнить массив A случайными числами от 1 до 20 с помощью цикла for. - Присвоить переменной S значение 0. - С помощью цикла for пройти по всем элементам массива A и проверить, является ли каждый элемент меньше 10. - Если элемент меньше 10, то прибавить его к переменной S. - Вывести значение переменной S на экран.

Пример кода на языке Паскаль:

program SumOfLessThanTen;
var
  A: array[1..18] of integer; // объявление массива A
  S: integer; // объявление переменной S
  i: integer; // объявление переменной i для цикла
begin
  randomize; // инициализация генератора случайных чисел
  for i := 1 to 18 do // цикл для заполнения массива A
    A[i] := random(20) + 1; // присваивание i-му элементу массива A случайного числа от 1 до 20
  S := 0; // присваивание переменной S значения 0
  for i := 1 to 18 do // цикл для подсчета суммы
    if A[i] < 10 then // условие для проверки, является ли элемент меньше 10
      S := S + A[i]; // прибавление элемента к переменной S
  writeln('Сумма чисел меньше 10 равна ', S); // вывод значения переменной S на экран
end.

Надеюсь, это поможет вам решить задачу.