сервис вопросов и ответовМассивы В1(10) и В2(10) заполнены случайными числами. Сформировать третий массив, каждый элемент которого равен большему из соответствующих
10-11 класс|
|
элементов данного массива. Вывести три массива.
Laki1962
03 сент. 2014 г., 19:18:34 (9 лет назад)
Valerka981
03 сент. 2014 г., 20:34:46 (9 лет назад)
const
len = 10;
var B1, B2, B3 : array [1..len] of integer; {объявляем массивы}
i : integer;
begin for i := 1 to len do {заполняем массивы B1 и B2 случайными числами}
begin
B1[i] := Random(1000);
B2[i] := Random(1000);
end;
for i := 1 to len do {пробегаемся по массиву B3 и записываем в B3[i] максимальное число из B1[i] и B2[i]}
B3[i] := Max(B1[i], B2[i]);
write('Первый массив: '); {выводим массивы}
for i := 1 to len do write(B1[i], ' ');
writeln; write('Второй массив: ');
for i := 1 to len do write(B2[i], ' ');
writeln; write('Третий массив: ');
for i := 1 to len do write(B3[i], ' ');
writeln;
end.
Ответить
Другие вопросы из категории
Среди 5 значных числео найдите, симметричные числа.
Распишите решение подробно, пожалуйста.
Известно, что для кодирования символа алфавита А требуется на 3 бита больше, чем для кодирования символа алфавита В. Кол-во символов в алфавитах
(мощность) обозначим N(a) и N(b) соответственно. Выразите величину N(a) через величину N(b)
Читайте также
ПОМОГИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ
сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел. получите новый массив, каждый элемент которого равен квадрату соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты
сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел. получите новый массив, каждый элемент которого равен квадрату
соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты
вот задание: дано: массивы А(10),В(10),С(10). Сформировать массив D(10), каждый элемент которого есть максимальное значение соответствующих
элементов А,В,С, т.е. Di=MAX{Ai,Bi,Ci}. Нахождение максимального значения оформить в виде подпрограммы.а вот подпрограмма:
Procedure FindMax(A,B,C:real; Var D:real);
Begin
if (A>B)and(A>C) then D:=A;
if (A<B)and(B>C) then D:=B;
if (C>B)and(A<C) then D:=C;
End;
Var
A,B,C,D:array[1..10] of real;
i:integer;
Begin
Write('A: ');
For i:=1 to 10 do
Begin
A[i]:=random(100)-25;
Write(A[i],' ');
End;
WriteLn;
Write('B: ');
Вы находитесь на странице вопроса "Массивы В1(10) и В2(10) заполнены случайными числами. Сформировать третий массив, каждый элемент которого равен большему из соответствующих", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.