сервис вопросов и ответов5 задача, помогайте, за ранее спасибо
5-9 класс|
|
Прикрепленные изображения
Dinara051199
11 янв. 2014 г., 16:23:48 (10 лет назад)
Rezedushka1
11 янв. 2014 г., 18:17:55 (10 лет назад)
var a,b:array [1..100] of integer;
n,k,i:integer;
Begin
read(n);
for i := 1 to n do begin
read(a[i]);
if a[i] mod 2 = 0 then begin
j:=j+1;
b[j]:=a[i];
end;
end;
if j=0 then writeln("Массив пуст");
else
for i:= 1 to j do write(b[i], ' ');
End.
Ответить
Другие вопросы из категории
Укажите к каким информационным процесам относится:сьёмка кинофильма размышление телефоный разговор ксерокопирывание ответ ученика на уроке написание
письма кодирыване сообщений написание контрольной работы выставление семестровой оценки ведения дневника фотографирывание ведение записей на уроке показ пантомимы отправка письма
Главный редактор журнала отредактировал статью, и её объём уменьшился на 4 страницы. Каждая страница содержит 32 строки, в каждой строке 64 символа.
Информационный объём статьи до редактирования был равен 1 Мбайт. Статья представлена в кодировке Unicode, в которой каждый символ кодируется 2 байтами. Определите информационный объём статьи в Кбайтах в это варианте представления Unicode после редактирования.
Читайте также
Здоровый котенок играет не менее 8 часов в день.Напишите алгоритм,который определяет,здоров ли котенок по кличке Пушок.
Помогите!!!!За ранее спасибо!
Помогите решить задачу в Pascal ABC. Даны два целых числа (А<В). Вывести в порядке возрастания все целые числа расположенные между А и В(включая
сами числа А и В), а так же кол-во N этих чисел.
За ранее спасибо!)
Вы находитесь на странице вопроса "5 задача, помогайте, за ранее спасибо", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.