Вопрос по информатике:
Помогите решить задачи на дом:
1) Найти сумму элементов массива, больших данного числа b ( b вводится с клавиатуры)
2) Есть ли в данном массиве элементы равные заданному числу? Если есть, то вывести номер одного из них.
- 09.10.2017 09:03
- Информатика
- remove_red_eye 5759
- thumb_up 16
Ответы и объяснения 1
Const
n = 15;
var
x: array[1..n] of integer;
i, b, s: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Write('Введите значение b -> '); Readln(b);
s:=0;
for i := 1 to n do if x[i]>b then s:=s+b;
Writeln('Сумма элементов, больших ',b,', равна ',s)
end.
Тестовое решение:
Элементы массива
8 46 29 23 21 14 14 8 20 26 15 49 44 35 33
Введите значение b -> 30
Сумма элементов, больших 30, равна 150
const
n = 15;
var
x: array[1..n] of integer;
i, b: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Write('Введите значение b -> '); Readln(b);
i:=1;
while (x[i]b) and (i
else Writeln('Нет элементов со значением, равным ',b)
end.
Тестовое решение:
Элементы массива
24 6 28 46 25 9 12 47 34 0 20 47 15 10 34
Введите значение b -> 20
x[11]=20
- 01.01.1970 00:00
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.