Дан массив целых чисел. Напечатать: а) все четные элементы массива; б)

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

Задать свой вопрос
Генка Баришполов
На якй мов ??????????????
Данил Третнер
Pascal
1 ответ
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.
Милена Понурова
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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт