Составьте программу, которая вводит с клавиатуры 8 целых
10-11 класс
|
неотрицательных чисел (каждое число — с новой строки отдельной
командой «ввод»), записывает их в массив, выводит на экран сначала в
прямом порядке все без исключения элементы массива, затем, в обратном
порядке относительно следования в массиве, все чётные элементы.
Например, для массива «1 2 5 4 5 3 7 8» программа должна выводить
числа в таком порядке: 1 2 5 4 5 3 7 8 8 4 2.
Каждое число программа должна выводить в отдельной строке; ничего,
кроме чисел, программа выводить не должна.
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. Известны напряжения двух не соединенных друг с другом участков электрическлй цепи и напряжения на каждом из них. По какому участку протекает меньший ток?
Читайте также
среди них.Ничего кроме этого программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. Надо сделать в Pascal
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
программу, которая вводит
с клавиатуры три
целых числа: 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
помогите пожалуйста
введенных чисел. Значение N вводится с клавиатуры.