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

Создать массив,вводя значения с клавиатуры.вывести на экран элементы кратные шести. например: если массив а[5]: -12,7,18,23,-11,то должны получить : -12,18.

Показать ответ
Ответ:
vladishe1
vladishe1
08.10.2020 20:31
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Число элементов в массиве:');
  var a:=ReadArrInteger('Вводите элементы:',n);
  a.Where(t->t mod 6=0).Println(', ')
end.

Создать массив,вводя значения с клавиатуры.вывести на экран элементы кратные шести. например: если м
0,0(0 оценок)
Ответ:
alyonaapresyan
alyonaapresyan
08.10.2020 20:31
Uses crt;
const N=5
var a:array[1..N] of integer;
b: array[1..N] of integer;
i: integer;
begin
for i:=1 to n do begin
write ('a[', i, ']=');
read (a[i]);
end;
writeln('Ishodniy massiv a');
for i:=1 to n do  
write(a[i],' ');
for i:=1 to n do  
if a[i] mod 3=0 then write (a[i], ' ');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота