Дан целочисленный массив в размере 20 элементов. составить программу на паскале. посчитать кол-во элементов кратных трём. b{}

Ответы

ERESYUR 07.07.2020 12:41

Const n=20;
var
a:array [1..n] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to n do begin
readln(a[i]);
if a[i] mod 3=0 then
k:=k+1;
end;
writeln(k);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

zlataaug 29.05.2019 17:00

Составить программу поиска больших чем соседние элементов массива l из 16 чисел. значения элементов массива рассчитать по формуле cosd/d,где d номер элемента массива....

Emulov 18.11.2020 17:59

1.Чему равен информационный вес алфавита мощностью 50 символов. 2.Мощность алфавита 10 символов. Определите информационный объем 10 символов. нужно...

maha80 18.11.2020 17:59

Назовём данную таблицу TEMPERATURA. Месяц 1 2 3 4 5 6 7 8 9 10 11 12Температура −24 −15 −5 4 14 15 20 23 11 5 −2 −11Тогда TEMPERATURA [4]=? ...

danilvlasov139 18.11.2020 18:08

Построить таблицы истинности для логического выражения кто может! ...

braagin 18.11.2020 18:08

По логической функции составить логическую схему ...

Spokeup 18.11.2020 18:09

Задание 1. Построить график функции y=5x-2 при значении х в интервале от [-5;5]; Задание 2. Построить график квадратичной функции y=2x2-2 при значении х в интервале от [-5;5] при шаге...

якура 18.11.2020 18:09

1. Используя рисунок, составьте и решите уравне у0б)0386alв) г)0ар1307...

ildareeee 18.11.2020 18:11

Придумать чёрный ящик Вход Выход Правильно преобразования ? (На фото лан пример)...

lizabelova00 18.11.2020 18:12

в таблице показано,как можно разными закодировать одну и ту же информацию :в виде рисунка(графическое кодирование),текста(текстовое кодирование)или числа (числовое кодирование)...

milamilmi 18.11.2020 18:13

Установите соответствие Оркестр Фортепиано Нотные записи 1Смешанная система 1Материальная система 1Нематериальная система...

Дан целочисленный массив в размере 20 элементов. составить программу на паскале. посчитать кол-во элементов кратных трём. b{}

Популярные вопросы