Опубликовано 6 лет назад по предмету Информатика от safdagasw

Дан массив целых чисел. Напечатать: а) все четные элементы массива; б) все элементы, оканчивающиеся нулем.

Ответ

Ответ дан elenaklon

program maschetinol; var a:array [1..25] of Integer; i:Integer; begin Write ('Массив: '); for i:=1 to 25 do begin a[i]:=random(51); write (a[i], ' '); end; WriteLn; Write('Чётные элементы: '); for i:=1 to 25 do if a[i] mod 2 = 0 then Write (a[i],' '); WriteLn; Write('Элементы, оканчивающиеся на ноль: '); for i:=1 to 25 do if a[i] mod 10 = 0 then Write(a[i],' ') end.
1. Ответ
  
  Ответ дан elenaklon
  
  program maschetinol;var a:array [1..25] of Integer;i:Integer;begin Write ('Массив: '); for i:=1 to 25 do begin a[i]:=random(51); write (a[i], ' '); end; WriteLn; Write('Чётные элементы: '); for i:=1 to 25 do if a[i] mod 2 = 0 then Write (a[i],' '); WriteLn; Write('Элементы, оканчивающиеся на ноль: '); for i:=1 to 25 do if a[i] mod 10 = 0 then Write(a[i],' ')end.

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Другие предметы - 10 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

Другие предметы - 10 месяцев назад

Из каких неживых частей состоит экосистема

Другие предметы - 10 месяцев назад

На какие расы делятся население земли

Другие предметы - 10 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Другие предметы - 10 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Задай вопрос

Лучшие за месяц

1

Oksana Gordienko
+798, 2 награды
2

Bianca
+743, 4 награды
3

Monna
+702, 2 награды
4

Brawer
+646, 3 награды
5

Ольга М.А.
+10.5K, 4 награды
6

Kovaleva_08
+522, 1 награда
7

Serebro
+495, 3 награды
8

Laguna
+489, 2 награды
9

Katerina_kiev
+441, 3 награды
10

Мусиенко Денис
+402, 2 награды

Интересные статьи: