сервис вопросов и ответовсформировать два массива содержащих n элементов.Отсортиропять первые по возрастанию,а второй по убывания.Вывести на экран.З
5-9 класс|
|
атем первый массив просумировать со вторым,а из второго вычесть первый
Andruha140583
28 авг. 2013 г., 8:35:38 (10 лет назад)
Masa2004
28 авг. 2013 г., 10:03:34 (10 лет назад)
uses
crt;
const
n = 100;
var
a: array [1..n] of integer;
b: array [1..n] of integer;
i, j, m: byte;
p1, p2: integer;
begin
write('Количество элементов: ');
readln(m);
clrscr;
writeln('Ввод массива A');
writeln;
for i:=1 to m do
begin
write('A[',i,']: ');
readln(a[i]);
end;
clrscr;
writeln('Ввод массива B');
writeln;
for i:=1 to m do
begin
write('B[', i, ']: ');
readln(b[i]);
end;
clrscr;
writeln;
writeln('Исходный массив А:');
for i:=1 to m do write(a[i]:4);
writeln; writeln; writeln('Исходный массив B:');
for i:=1 to m do write(b[i]:4);
for i:=1 to m-1 do
for j:=m downto i do
begin
if a[i] > a[j] then
begin
p1:=a[i]; a[i]:=a[j]; a[j]:=p1;
end;
if b[j] > b[i] then
begin
p2:=b[i]; b[i]:=b[j]; b[j]:=p2;
end;
end;
writeln; writeln; writeln('Массив А по возрастанию:');
for i:=1 to m do write(a[i]:4);
writeln; writeln; writeln('Массив B по убыванию:');
for i:=1 to m do write(b[i]:4);
writeln; writeln; writeln('Массив A+B:');
for i:=1 to m do
begin
a[i]:=a[i]+b[i];
write(a[i]:4);
a[i]:=a[i]-b[i];
end;
writeln; writeln; writeln('Массив B-A:');
for i:=1 to m do
begin
b[i]:=b[i]-a[i];
write(b[i]:4);
end;
readln;
end.
виктор19
28 авг. 2013 г., 10:52:42 (10 лет назад)
массив лучше формировать с клавиатуры или рандомно?
Marshall79
28 авг. 2013 г., 12:45:06 (10 лет назад)
как напеши решение задачи
Ответить
Другие вопросы из категории
Добавьте комментарий к программе с оператором цикла Я составила программу ,но не знаю правильно или нет ,проверьте пожалуйста и
добавьте комментарий
program Metka;
label M1;
var x: shortint;
begin
M1:writeln ('x>100')
readln(x);
if x<100 then GOTO M1
end.
Помогите написать программу вычисления значений функций!
f(x)=x/кореньx2-4
Читайте также
Дан массив из N элементов(12 элементов), заданный случайным образом от -10 до 10. Вывести на экран этот массив. С клавиатуры вводятся два числа меньше N.
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
Привет, помогите пжл.
Задание: использовать цены For подсчитать сумму первых 30 чисел натурального ряда и вывести на экран
1 Задание:сформируйте и выведите на экран массив из девяти элементов,каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
1.Вставьте пропущенные слова в описании массива А, элементами которого являются целые числа. А: _________________[1..100] of ______________.
2. Опишите массив для хранения зарплаты за каждый месяц. Зарплату считать целым числом.
3.Опишите: a)Переменную В для массива, состоящую из 8 символов. b)Переменную MAS для массива, состоящего из 100 вещественных чисел. c)Переменную DAY для массива, состоящего из 30 целых чисел, причем номер первого элемента массива должен быть равен 5
.4. Пусть А : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям: a. Третий элемент массива сделать равным 5. b. Вывести на экран 7-й элемент массива. c. Ввести значение 1-го элемента массива. d. Вычислить сумму 1,2 и 3-го элементов массива.
5. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вычислить сумму всех элементов массива (используйте цикл).
6. Пусть C : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вывести на экран все элементы массива.
7. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Поменять местами первый и последний элементы массива.
8. Пусть В : array [1..20] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Заполнить массив случайными числами из интервала [-24;37].
Последняя задача...если вы мне поможете,то в аттестате 4 будет....пожалуйста помогите.вот:Сформируйте массив содержащий 15 элементов,с помощью датчика
случайных чисел.Получите новый массив,каждый элемент которого равен удвоенному соответствующему элементу исходного массива.В полученном массиве найдите максимальный элемент среди элементов,номера которых кратны трем.Выведите на экран исходные и полученные результаты
Вы находитесь на странице вопроса "сформировать два массива содержащих n элементов.Отсортиропять первые по возрастанию,а второй по убывания.Вывести на экран.З", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.