Вопрос по информатике:
1. В
массиве А(11) случайных целых чисел (диапазон чисел [-10.. 25] ) определить:
сумму элементов,
которые кратны 5.
2. В
массиве B(6) случайных целых чисел (диапазон чисел [-4.. 53] ) определить:
количество элементов, которые меньше 7.
- 20.03.2018 11:59
- Информатика
- remove_red_eye 15856
- thumb_up 19
Ответы и объяснения 1
1.
var i,summa: integer;
A: array [1..11] of integer;
begin
summa:=0;
randomize;
write('Массив: ');
for i:=1 to 11 do begin
A[i]:=random(36)-10;
write(A[i],' ');
end;
writeln;
for i:=1 to 11 do
if A[i] mod 5 = 0 then summa:=summa+A[i];
writeln('Сумма чисел кратных 5= ',summa);
end.
2.
var i,s: integer;
A: array [1..6] of integer;
begin
s:=0;
randomize;
write('Массив: ');
for i:=1 to 6 do begin
A[i]:=random(58)-4;
write(A[i],' ');
end;
writeln;
for i:=1 to 6 do
if A[i] < 7 then s:=s+1;
writeln('Количество элементов меньших 7: ',s);
end.
- 21.03.2018 10:08
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.