Сложить все числа массива больше 30 Памагити, очень нужно (Дам 30 баллов)

- 17 March 2021
- Автор: кококококококококок1
Сложить все числа массива больше 30
Памагити, очень нужно
(Дам 30 баллов)
- 17 March 2021
- Ответ оставил: 9ITyT
Задание не до конца понял,но вроде бы найти сумму чисел больше 30.

30+40+50+60+25=70+110+25=180+25=205

Не за что✔

0
- 17 March 2021
- Ответ оставил: 13nisa13
const n=10;
var a: array[1..n] of integer;
i,s:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:3,' ');
if a[i]>30 then s:=s+a[i]
end;
writeln;
writeln ('Сумма чисел больше 30 равна ',s)
end.

0

- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (22.11.2024) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Найти другие ответы
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

Ответить на вопрос

Последние опубликованные вопросы

Некоторый алфавит состоит из 64 символов. В сообщении 60 символов. Определите информационный объем сообщения. Определите в виде эссе личный уровень владения современными информационными технологиями. Опишите имеющиеся навыки работы в: - офисных программах (текстовый редактор, табличный процессор, построит... Зачем в C++ нужна библиотека stdio.h, и какова ее функция? составить блок- схему решения выражения (23+34)*57/3 ПАСКАЛЬ. Решите задачу с помощью строк. Пользователь водит слово - мама, и букву - м. Паскаль выводит количество этих самых букв из строки, которую мы ввели , то есть 2. Еще пример: Введите слово... Дам 20 баллов! Дано логическое выражение, зависящее от 6 логических переменных: X1 ∧ ¬X2 ∧ X3 ∧ ¬X4 ∧ X5 ∧ X6 Сколько существует различных наборов значений переменных, при которых выражение истин... Спасите!!!!!!!!!!!!!!!!!!!!!!!!!!!! Таблица в Microsoft access служит для …. данных (может быть несколько) а) автоматизации ввода б) ввода в) хранения Сколько битов в 20 ниблах Спасите!!!!!!!!!!!!!!!!!!!!!!!!!!!! Таблица в Microsoft access служит для …. данных (может быть несколько) а) автоматизации ввода б) ввода в) хранения Арбуз с точки зрения агронома, покупателя, художника Расставьте по убыванию: 1 Бит, 1байт, 1Кбайт, 1Мбайт, 1Гбайт, 1Тбайт ПОМОГИТЕ ПОЖАЛУЙСТА!!!)) Вводится трехразрядное двоичное число. Перевести это число в десятичную систему счисления.

Сложить все числа массива больше 30 Памагити, очень нужно (Дам 30 баллов)

Задание не до конца понял,но вроде бы найти сумму чисел больше 30.30+40+50+60+25=70+110+25=180+25=205Не за что✔

const n=10;var a: array[1..n] of integer;i,s:integer;beginwrite('Массив: ');for i:=1 to n dobegina[i]:=random(90)+10;write(a[i]:3,' ');if a[i]>30 then s:=s+a[i]end;writeln;writeln ('Сумма чисел больше 30 равна ',s)end.

Последние опубликованные вопросы

Сложить все числа массива больше 30
Памагити, очень нужно
(Дам 30 баллов)

Задание не до конца понял,но вроде бы найти сумму чисел больше 30.

30+40+50+60+25=70+110+25=180+25=205

Не за что✔

const n=10;
var a: array[1..n] of integer;
i,s:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:3,' ');
if a[i]>30 then s:=s+a[i]
end;
writeln;
writeln ('Сумма чисел больше 30 равна ',s)
end.