В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
lukynova20
lukynova20
18.06.2022 16:31 •  Информатика

Задан одномерный целочисленный массив из 10 элементов заполненных произвольно. вывести массив на экран, подсчитать количество элементов кратных пяти, вывести эти элементы на экран.(сделать програмку нужно в паскале).

Показать ответ
Ответ:
КнОпОськА8965
КнОпОськА8965
19.08.2020 13:51
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота