Регистрация
ybibisheva
05.07.2021 06:54
Информатика
Есть ответ 👍

Написать программу Pascal
Написать программу, которая в заданном с клавиатуры массиве из 7 целых чисел
находит сумму элементов, меньших 4.

222
356
Посмотреть ответы 3

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

Зайка9870
Зайка9870
4,8(56 оценок)

для версий PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1 и выше

begin

var A := ReadArrInteger(7);

A.Where(p -> p < 4).Sum.Println;

end.

qwer54321asdfrewq
qwer54321asdfrewq
4,5(8 оценок)

program xyz;

 uses

crt;

 var

 a: array [1..7] of real;

 i: integer;

 begin

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

 for i := 1 to 7 do

 begin

   Write('a[', i, '] -> ');

   ReadLN(a[i]);

 end;

 WriteLN('Массив a: ');

 for i := 1 to 7 do

   Write(a[i], ' ');

 ReadLN;

end.

Юліяcoolgirl
Юліяcoolgirl
4,8(82 оценок)

1-400 2-1200 3-25минут 4-15секунд

5-28 секунд. 1-300кб, 2-50600 3-10 секунд 4-48 секунд

Объяснение:

Дай

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