ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! Заданы массивы A и B чисел (N=10) случайным образом. Сформировать новый массив, каждый элемент которого равен:
5-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.
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.
Другие вопросы из категории
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 35 строк, в каждой строке 64 символа. Определите информационный объём статьи в одной из кодировок Unicode, в которой каждый символ кодируется 16 битами.
Читайте также
из соответствующих элементов этих массивов
2.Даны 2 массива одинакового размера. Сформировать 3-й массив, каждый элемент которого равен минимальному из элементов с одинаковыми номерами.
3.Заполнить массив из 11 элементов числами 1, 2,3,..,11.
Заранее спасибо.
случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты
случайных чисел.Получите новый массив,каждый элемент которого равен удвоенному соответствующему элементу исходного массива.В полученном массиве найдите максимальный элемент среди элементов,номера которых кратны трем.Выведите на экран исходные и полученные результаты
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .