Предмет: Информатика,
автор: Ruticia
Массив содержит 11 целых чисел. Вычислить сумму тех элементов массива, значения которых принадлежат промежутку [3, 6]. Pascal. не знаю как сделать цикл, чтобы он считал элементы массива с промежутка
Ответы
Автор ответа:
0
var
s: real;
i: integer;
a: array [1..11] of real;
begin
for i := 1 to 11 do
read(a[i]);
s := 0;
for i := 1 to 11 do
if (a[i] >= 3) and (a[i] <= 6) then
s := s + a[i];
writeln(s);
end.
s: real;
i: integer;
a: array [1..11] of real;
begin
for i := 1 to 11 do
read(a[i]);
s := 0;
for i := 1 to 11 do
if (a[i] >= 3) and (a[i] <= 6) then
s := s + a[i];
writeln(s);
end.
Интересные вопросы
Предмет: Математика,
автор: voinovnikita07
Предмет: Українська мова,
автор: lytvikaa
Предмет: Математика,
автор: dimson14051980
Предмет: Математика,
автор: Алиночка102403
Предмет: Математика,
автор: Vikulj2003