Вопрос по информатике:
СРОЧНО!!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!!дан массив целых чисел.определить количество элементов,кратных 5
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.09.2015 19:14
- Информатика
- remove_red_eye 822
- thumb_up 45
Ответы и объяснения 1
Program chkr5; const N=10; var a:array [1..N] of integer; chkr,i:integer; flag:boolean; //Создаем массив из 10 (N) элементов begin randomize; flag:=false; //Присваиваем переменной flag отрицательное значение, эта переменная потом поможет нам проверить есть ли в массиве числа кратные 5 for i:=1 to N do begin a[i]:=random (21)-10; write (a[i], ' '); //Заполняем массив числами на диапозоне [-10;10] и выводим его if a[i] mod 5=0 then begin chkr:=chkr+1; flag:=true; end; //Каждый раз проверяем: Если элемент при делении на 5 дает в остатке 0, тогда в переменную записываем плюс единичку (к переменной +1) end; writeln; if flag=true then write ('Чисел, кратных 5: ', chkr) else write ('Чисел, кратных 5 нет'); //Выводим результат, если цикл if выполнялся хоть раз (было хоть одно число, кратное 5), иначе говорим, что таких чисел нет end.
- 17.09.2015 20:53
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.