сервис вопросов и ответовПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! Заданы массивы A и B чисел (N=10) случайным образом. Сформировать новый массив, каждый элемент которого равен:
5-9 класс|
|
сумме этих массивов ; минимальную из соответствующих элементов этих массивов.
Osia80
17 янв. 2015 г., 6:41:51 (9 лет назад)
новичок555689
17 янв. 2015 г., 8:45:14 (9 лет назад)
1.var
a, c, b: array[1..10] of integer;
i: integer;
begin
randomize;
for i := 1 to 10 do begin a[i] := random(1000);b[i] := random(1000); end;
for i := 1 to 10 do write(a[i], ' ');
for i := 1 to 10 do write(b[i], ' ');
for i := 1 to 10 do c[i] := a[i] + b[i];
for i := 1 to 10 do write(c[i], ' ');
end.
2.
var
a, c, b: array[1..10] of integer;
i: integer;
function min(a,b:integer):integer;
begin
if a>b then min:=b else min:=a;
end;
begin
randomize;
for i := 1 to 10 do begin a[i] := random(1000);b[i] := random(1000); end;
for i := 1 to 10 do write(a[i], ' ');
for i := 1 to 10 do write(b[i], ' ');
for i := 1 to 10 do c[i] := min(a[i],b[i]);
for i := 1 to 10 do write(c[i], ' ');
end.
Настя250998
17 янв. 2015 г., 11:39:23 (9 лет назад)
type ar10 = array[1..10] of integer;
var a, b,c,d: ar10;
i: integer;
procedure show(a:ar10);
begin
for i := 1 to 10 do
write(a[i], ' ');
end;
begin
randomize;
for i := 1 to 10 do begin
a[i] := random(1000);
b[i] := random(1000);
c[i] := a[i] + b[i];
d[i] := min(a[i] ,b[i]);
end;
show(a);
show(b);
show(c);
show(d);
end.
Ответить
Другие вопросы из категории
20 баллов СРОЧНО
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 35 строк, в каждой строке 64 символа. Определите информационный объём статьи в одной из кодировок Unicode, в которой каждый символ кодируется 16 битами.
Читайте также
Заданы массивы А и В из N чисел (N=10) случайным образом. Сформировать новый массив, каждый элемент которого равен минимальному
из соответствующих элементов этих массивов
Решите пожалуйста хоть что-нибудь. Массивы. 1.Дан массив, какое число встретится раньше максимальное или минимальное?
2.Даны 2 массива одинакового размера. Сформировать 3-й массив, каждый элемент которого равен минимальному из элементов с одинаковыми номерами.
3.Заполнить массив из 11 элементов числами 1, 2,3,..,11.
Заранее спасибо.
Нароооооод!Кто смыслит в информатике,помогите пожалуйста решить номер один.Воть:сформируйте массив, содержащий 15 элементов ,с помощью датчику
случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты
Последняя задача...если вы мне поможете,то в аттестате 4 будет....пожалуйста помогите.вот:Сформируйте массив содержащий 15 элементов,с помощью датчика
случайных чисел.Получите новый массив,каждый элемент которого равен удвоенному соответствующему элементу исходного массива.В полученном массиве найдите максимальный элемент среди элементов,номера которых кратны трем.Выведите на экран исходные и полученные результаты
1 Задание:сформируйте и выведите на экран массив из девяти элементов,каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
Вы находитесь на странице вопроса "ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! Заданы массивы A и B чисел (N=10) случайным образом. Сформировать новый массив, каждый элемент которого равен:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.