Категория
Информатика, опубликовано 04.04.2019 12:10

Напишите программу в паскале: удалить из массива последний четный элемент

Ответы

Ответ
Ответ оставил: Гость
//pascalabc.net 3.2 сборка 1318 const   n=5;   var   ar: array[1..n] of integer;   i,indf: integer; begin indf: =-1; for i: =1 to n do   begin     readln(ar[i]);     if not(odd(ar[i])) then indf: =i;   end; if indf=-1  then   writeln('нет чётных')   else   begin     for i: =indf to n-1 do       ar[i]: =ar[i+1];     for i: =1 to n-1 do       write(ar[i]: 4);   end; end. пример ввода: 1 2 3 4 5 пример вывода: 1 2 3 5
Ответ
Ответ оставил: Гость
Пример во вложении.
То, что нужно "выписать на листочек" написано ручкой.
Какие могут быть искажения:
1. Например рисующий человек никогда не видел декартову систему координат и поменяет оси местами. Тогда звезда "ляжет" на абсцисс, хотя её фигура и не пострадает.
2. Забудет соединить последнюю точку с первой и замкнуть контур.
3. и т.д.... какой-нибудь человеческий фактор придумаете.
Приложение

Комментарии (2) Отметить нарушение
49

СПАСИБО
114
Настёнааааааааааааа
Спасибо огромное))
Дивергент999
Спасибо чувак!) Ты крут)))
PĄŤŴåŊ

Введи комментарий к этому ответу здесь...
Мозг
Мозг Отвечающий
Не можешь найти то, что ищешь?
ЗАДАЙ ВОПРОС
Реклама

Новые по информатике
Информатика 5 б 50 секунд назад
Игра шифровальщик выполните действия по следующему плану
ОТВЕТЬ
Информатика 5 б 2 минуты назад
Помогите, очень надо. Вместо цифр нужно вставить слова: Компьютер является электронным устройством, способным (1) информацию. В процессе работы информация попадает в (2); процессор извлекает из...
ОТВЕТЬ
Информатика 5 б 5 минут назад
Игра шифровальщик выполните действия по следующему плану
ОТВЕТЬ
Информатика 5 б 18 минут назад
При работе с электронной таблицей в ячейке Н5 записана формула "=$В$5*5". Какая формула будет получена из нее при копировании в ячейку Н7?
ОТВЕТЬ
Информатика 5 б 36 минут назад
Даны две длины одна в метрах другая в сантиметрах определите равны ли они между собой. паскаль 7 класс
ОТВЕТЬ
Информатика 5 б 42 минуты назад
Помогите пожалуйста с информатикой 4 номер где схема
1
ОТВЕТЬ
Информатика 40 б 56 минут назад
Помогите пожалуйста ,буду благодарна! Составьте алгоритм для КуМир. В группе 10 студентов.Найти самого высокого и самого низкого.
ОТВЕТЬ
Информатика 5 б 1 час назад
Какие модели называют информационнами? Привидение примеры 2-3 натуральных моделей
ОТВЕТЬ
Информатика 5 б 1 час назад
Загадка для понятия диск
ОТВЕТЬ
Информатика 8 б 2 часа назад
РЕБЯТА!!! СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА!;
1
ОТВЕТЬ
Информатика 9 б 2 часа назад
Пользователь вводит три числа a,b,c . Ввести максимальное и минимальное из них (p.s C++)
ОТВЕТЬ
Информатика 10 б 2 часа назад
Дано описание одного из законов алгебры логики. Выбери верный ответ. Если в выражении используется только операция дизъюнкции или только операция конъюнкции, то можно пренебрегать скобками или...
ОТВЕТЬ
Информатика 5 б 2 часа назад
При решении напишите номер задания
1
ОТВЕТЬ
Информатика 5 б 2 часа назад
Сообщение записанное буквами 64 символьного алфавита содержит 180 какое количество информации Немет одна буква этого алфавита
ОТВЕТЬ
Информатика 5 б 2 часа назад
Объясните назначение условного форматирования в электронных таблицах помогите
ОТВЕТЬ
Информатика 18 б 2 часа назад
Напишите программу, которая определяет, в какую из областей – I или II попадает точка с заданными координатами. Для простоты принять, что точка не попадает на границу областей В PYTHON!!!!!
ОТВЕТЬ
Информатика 5 б 2 часа назад
Написатт программу, которая при первом запуске создает файл F записей, а при повторных запусках эта программа дописывает в этот файл фамилию, имя, год рождения, рост и вес учеников
1
ОТВЕТЬ
Информатика 5 б 3 часа назад
Объясните пожалуйста как делать
1
ОТВЕТЬ
ПОКАЗАТЬ ЕЩЕ
Ответ
Ответ оставил: Гость
Таблица 32 * 16 = 2⁹ символов. Тогда информационный объем одного символа 9 бит. 600 * 9 = 5.400 бит.
Ответ
Ответ оставил: Гость
Var a,z,q:integer;
begin
readln(a);
q:=0;
while a<>0 do
begin
z:=a mod 10;
a:=a div 10;
if a mod 2=0 then
q:=q+1;
end;
writeln(q);
end.


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

Вопрос
Информатика, опубликовано 09.01.2019 16:01
Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 3 на вопрос по информатике: Напишите программу в паскале: удалить из массива последний четный элемент... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube