М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vladimlr
vladimlr
13.10.2022 18:11 •  Информатика

Дан массив целых чисел.определить количество элементов,кратных 5

👇
Ответ:
teta89p016as
teta89p016as
13.10.2022
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.
4,8(99 оценок)
Открыть все ответы
Ответ:
опшпищи
опшпищи
13.10.2022

1.Культурное наследие – духовное богатство нации, складывающееся на протяжении столетий. ... Одна из старейших организаций, чья деятельность направлена на сохранение и популяризацию национального культурного и природного наследия, была создана в 1894 году в Великобритании.

2.Тот, кто получает наследство, наследует кому-н.

Продолжатель чьей-н. деятельности, преемник.

Перевести "наследник" на

выбрать язык

3.Есть разные профессии бухгалтер,пилот,Резчик по камню,Психолог,Графический дизайнер и т.д

4.Кем ты хочешь стать? Скажи вот и ответ

4,5(94 оценок)
Ответ:
olgastavovaya1
olgastavovaya1
13.10.2022

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.

4,4(19 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ