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

- 04 December 2020
- Автор: pipi0002
Создать массив,вводя значения с клавиатуры.Вывести на экран элементы кратные шести.
Например:Если массив а[5]:-12,7,18,23,-11,то должны получить :-12,18.
- 04 December 2020
- Ответ оставил: snow99
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

- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (09.06.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Найти другие ответы
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

Ответить на вопрос

Последние опубликованные вопросы

Некоторый алфавит состоит из 64 символов. В сообщении 60 символов. Определите информационный объем сообщения. Определите в виде эссе личный уровень владения современными информационными технологиями. Опишите имеющиеся навыки работы в: - офисных программах (текстовый редактор, табличный процессор, построит... Зачем в C++ нужна библиотека stdio.h, и какова ее функция? составить блок- схему решения выражения (23+34)*57/3 ПАСКАЛЬ. Решите задачу с помощью строк. Пользователь водит слово - мама, и букву - м. Паскаль выводит количество этих самых букв из строки, которую мы ввели , то есть 2. Еще пример: Введите слово... Дам 20 баллов! Дано логическое выражение, зависящее от 6 логических переменных: X1 ∧ ¬X2 ∧ X3 ∧ ¬X4 ∧ X5 ∧ X6 Сколько существует различных наборов значений переменных, при которых выражение истин... Спасите!!!!!!!!!!!!!!!!!!!!!!!!!!!! Таблица в Microsoft access служит для …. данных (может быть несколько) а) автоматизации ввода б) ввода в) хранения Сколько битов в 20 ниблах Спасите!!!!!!!!!!!!!!!!!!!!!!!!!!!! Таблица в Microsoft access служит для …. данных (может быть несколько) а) автоматизации ввода б) ввода в) хранения Арбуз с точки зрения агронома, покупателя, художника Расставьте по убыванию: 1 Бит, 1байт, 1Кбайт, 1Мбайт, 1Гбайт, 1Тбайт ПОМОГИТЕ ПОЖАЛУЙСТА!!!)) Вводится трехразрядное двоичное число. Перевести это число в десятичную систему счисления.

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

uses crt; const N=5var a:array[1..N] of integer; b: array[1..N] of integer; i: integer; beginfor 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.

Последние опубликованные вопросы

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

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.