Вопрос по информатике:
Задан одномерный целочисленный массив из 10 элементов заполненных произвольно. вывести массив на экран, подсчитать количество элементов кратных пяти, вывести эти элементы на экран.(сделать програмку нужно в паскале).
- 17.02.2017 03:21
- Информатика
- remove_red_eye 2733
- thumb_up 27
Ответы и объяснения 1
Const n = 10;
var i,k,c: integer;
a:array[1..n] of integer;
begin
//Заполняем массив и выводим на экран
for i:=1 to n do begin
a[i]:=random(150)-50;
write(a[i]:5);
end;
writeln;
//Вывод элементов кратных пяти
k:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then begin
write(a[i]:5);
k:=k+1;
end;
writeln;
writeln('Всего кратных пяти - ',k);
end.
- 18.02.2017 01:47
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.