Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

Составьте программу, которая вводит с клавиатуры 8 целых

10-11 класс

неотрицательных чисел (каждое число — с новой строки отдельной
командой «ввод»), записывает их в массив, выводит на экран сначала в
прямом порядке все без исключения элементы массива, затем, в обратном
порядке относительно следования в массиве, все чётные элементы.
Например, для массива «1 2 5 4 5 3 7 8» программа должна выводить
числа в таком порядке: 1 2 5 4 5 3 7 8 8 4 2.
Каждое число программа должна выводить в отдельной строке; ничего,
кроме чисел, программа выводить не должна.

Shokolnik 14 марта 2017 г., 8:37:19 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Misspraskovya
14 марта 2017 г., 9:46:26 (7 лет назад)

var

A:array [1..8] of byte;

i:integer;

 

begin

for i:=1 to 8 do readln(A[i]);

for i:=1 to 8 do writeln(A[i]);

for i:=8 downto 1 do

begin

if not Odd(A[i]) then writeln(A[i]);

end;

readln;

end.

Ответить

Другие вопросы из категории

Исправьте программу, она почему-то при выполнении не приходит к результату, то есть выполняется, но закончить выполнение не может. ошибка где-то в цикле

как я понимаю.

сама задание выглядит так:

Задан массив из н элементов. определить

1) сколько различных элементов в массиве

2) Удалить повторные появления каждого элемента

вот текст программы

program p;
var n, i, k, j: integer;
a:array[1..50] of integer;
begin
readln (n);
for i:=1 to n do
readln (a[i]);
i:=1;
while i<=n-1 do
begin
j:=i+1;
while j<=n do
if a[i]=a[j] then
begin
for k:=j+1 to n do
a[k-1]:=a[k];
n:=n-1
end
else j:=j+1;
end;
writeln (n);
for i:=1 to n do
writeln (a[i])
end.

МНОГО ПУНКТОВ. (Линейное) Программирование.ПАСКАЛЬ. Задачи ОЧЕНЬ ЛЕГКИЕ, пропустила много. Хочу разобраться. БОЛЬШОЕ СПАСИБО ЗА ПРАВИЛЬНОЕ

РЕШЕНИЕ)

Карточка 1.

1. Вычислите дробную часть среднего арифметического трех заданных чисел.

2. Составьте программу вычисления идеального веса человека по его росту, при условии. что идеальный вес (кг)=(рост(см) - 100

3. Рассчитайте, сколько очков набрала команда по хоккею, если известно, что m встреч онавыиграла (2 очка), n встреч она проиграла (0 очков) и k встреч - ничья (1 очко).

4.1 Дано целое число. Определить является ли оно четным.

4.2 Дано целое число. Определить оканчивается ли оно цифрой 7.

Карточка 2. ( необходимо знание формул по физике)

1. Даны объем и массы двух тел из разных материалов. Материал какого из тел имеет большую плотность?

2. Известны напряжения двух не соединенных друг с другом участков электрическлй цепи и напряжения на каждом из них. По какому участку протекает меньший ток?

Читайте также

Составить программу которая вводит с клавиатуры четыре целых числа a,b,c,d (каждое число - отдельной командой "ввод") и выводит на экране минимальное

среди них.Ничего кроме этого программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. Надо сделать в Pascal

Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки

пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.

10. Составьте

программу, которая вводит
с клавиатуры три
целых числа: a, b, c (каждое
число с новой
строки) и выводит
на экран максимальное
из них. Ничего
кроме этого числа,
программа выводить не
должна.

Паскаль

Помогите пожалуйста 10 класс . много чего ещё не понимаю
1) Определите сумму четных чисел до числа N введённые с клавиатуры
N=10
S=2+4+6+8+10=30
2) Составить программу которая вводит с клавиатуры число N и определяет произведение всех чисел
N=4
P=1*2*3*4=24
помогите пожалуйста



Вы находитесь на странице вопроса "Составьте программу, которая вводит с клавиатуры 8 целых", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.