Вопрос по информатике:
Дан массив из N элементов. Определить сумму тех элементов, которые кратны 5
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.04.2018 17:45
- Информатика
- remove_red_eye 2135
- thumb_up 17
Ответы и объяснения 1
Сделал через динамический массив тоесть размер вводится с клавиатуры
program Project2;
{$APPTYPE CONSOLE}
var a:array of integer; i,n,s:Integer;
begin
Randomize;
s:=0;
Readln(n);//вводим размер массива с клавиатуры
SetLength(a,n); //задаем размер массива
for i:=0 to Length(a) do
a[i]:=Random(100); //геним массив
for i:=0 to Length(a) do
if a[i] mod 5 =0 then //ищем сумму
s:=s+a[i];
Writeln('Summ: ',s); //выводим сумму
readln;
end.
- 09.04.2018 16:25
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.