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

Cоздать два одномерных массива разного размера массив максимального элемента которого большее упорядочить по убыванию(На Паскале )

10-11 класс

Ангелина00014 02 сент. 2014 г., 10:01:08 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Nikatlanov
02 сент. 2014 г., 12:31:55 (9 лет назад)

program gt;
var a,b:array[1..1000]of integer;
n,m,i,j,k,l,max1,max2:integer;
begin
randomize;
n:=random(100)+1;
m:=random(100)+1;
max1:=-1;
for i:=1 to n do
begin
a[i]:=random(1000);
if(a[i]>max1)then max1:=a[i];
end;
max2:=-1;
for i:=1 to m do
begin
b[i]:=random(1000);
if(b[i]>max2)then max2:=b[i];
end;
if(max1>max2)then begin
for i:=1 to n-1 do
begin
for j:=1 to n-1 do
begin
k:=a[j];l:=a[j+1];
if(a[j]>a[j+1])then begin
a[j]:=l;
a[j+1]:=k;
end;
end;
end;
end;
if(max2>max1)then begin
for i:=1 to m-1 do
begin
for j:=1 to m-1 do
begin
k:=b[j];l:=b[j+1];
if(b[j]>b[j+1])then begin
b[j]:=l;
b[j+1]:=k;
end;
end;
end;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln;
for i:=1 to m do
begin
write(b[i],' ');
end;
end.
здесь у меня случайный набор
n-кол-во элементов в 1 массиве
m-кол-во элементов в 2 массиве
a[i]-первый массив
max1-максимальный элемент 1-вого массива
и так же для 2-го массива

Ответить

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

ПОМОГИТЕ Сделать программу и блок схему ! На Паскале.

Задание:
Определить сколько раз в тексте встречается слово "Давши".
Исходный текст:
Не давши слово-крепись,
А давши - Держись

В непозиционной системе счисления, которая называется системой остатков (СО), в качестве оснований выбираются взаимно простые числа, например, p1=3,

p2=5, p3=7. При этом диапазон однозначного представления чисел равен произведению оснований (в приведенном примере p1∙p2∙p3 = 105, т. е. однозначно представляются все числа от 0 до 104). Любое число в этом диапазоне записывается остатками от целочисленного деления этого числа на выбранные основания. Например, число A = 19 запишется в СО с основаниями 3, 5, 7 так: A = (1, 4, 5). Укажите, какая из записей соответствует числу 5, записанному в системе остатков с основаниями 3, 5, 7.
1) (3, 0, 2) 2) (2, 0, 2) 3) (2, 0, 5) 4) (5, 5, 5)

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

Задан одномерный массив размером 40. Определите количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного

числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор

Введите с клавиатуры одномерный массив S(K), элементами которого являются положительные и отрицательные числа. Найдите среднее арифметическое значение

среди последних 9-ти элементов массива, максимум среди первых 5-ти элементов. Замените в массиве все элементы, которые больше найденного среднего арифметического - на максимум.

Помогите написать программу в паскале. За ранее спасибо. Задача на одномерный массив. Задание 4. В одномерном массиве А[1..12]

необходимо поменять местами: а) первый и последний элементы массива; б) второй и минимальный элементы массива; в) третий и максимальный элементы массива; Вывести на экран исходный и результирующий массивы.

сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел. получите новый массив, каждый элемент которого равен квадрату

соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты



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