сервис вопросов и ответовданы масивы A(10) B(15). напечатать массив в котором произведение положительных элиментов больше. паскаль с помощью подпрограммы
10-11 класс|
|
милора
24 окт. 2016 г., 1:34:03 (7 лет назад)
ади1
24 окт. 2016 г., 2:35:39 (7 лет назад)
type
V = array of integer;
function ProdPos(a: V): longint;
var
i: integer;
begin
Result := 1;
foreach var p: longint in a do
if p > 0 then Result := Result * p
end;
const
n1=10;
n2=15;
var
A, B: V;
i,n: integer;
pi,p2:longint;
begin
Randomize;
SetLength(A,n1);
writeln('Массив А');
for i:=0 to n1-1 do begin
A[i]:=random(100)-50;
write(A[i]:4)
end;
writeln;
p1:=ProdPos(A);
SetLength(B,n2);
writeln('Массив B');
for i:=0 to n2-1 do begin
B[i]:=random(100)-50;
write(B[i]:4)
end;
writeln;
p2:=ProdPos(B);
writeln('Произведение положительных ',max(p1,p2));
end.
Тестовый прогон:
Массив А
44 -26 18 -6 -19 -24 22 48 -46 34
Массив B
-21 46 -33 -15 -7 8 3 16 18 -32 6 7 -45 -4 -30
Произведение положительных 28435968
FoXpRoDuKtIoN
24 окт. 2016 г., 7:23:40 (7 лет назад)
процедур ввода , процедура решения и процедура вывода
егор131313
24 окт. 2016 г., 9:46:27 (7 лет назад)
если можешь набросай...
Ответить
Другие вопросы из категории
даны целые положительные числа M и N и набор из М чисел. Сформировать матрицу размера М х N , у которой в каждом столбце содержатся все числа из исходного
набора (в том же порядке ) . из Pascal ABC.
Нужна помощь по информатике. Нужно решить карточку. Желательно подробно!! ! Вот карточка: Хотя бы
несколько. Кому не сложно помогите!! ! Тема называется Представление
числовой информации с помощью систем счисления!
Описать
функцию Fact (n) вещественного типа вычисляющую значение факториала n!=1*2*3*..*n (n>0, параметр целого типа). С помощью этой функции найти
факториалы пяти данных целых чисел.
Читайте также
1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
Дан двумерный массив целых чисел, i=10, j=15; заполняется случайными образом целыми числами от 0 до 100. Определите сколько раз в нём случается элемент со
значением Х (Х-задаётся пользователем).
вот задание: дано: массивы А(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: ');
Дан двумерный массив целых числе i=10 j=15, Заполняется случайным образом целыми числами от 0до 100. 1) Определить сколько раз в нем встречается
элемент со значеием х. х задается прользователем
2) Определить количесво четных элементов массива.
Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где X(1) - сумма элементов массива R, значения которых лежат в интервале [2;4];
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
Вы находитесь на странице вопроса "даны масивы A(10) B(15). напечатать массив в котором произведение положительных элиментов больше. паскаль с помощью подпрограммы", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.