сервис вопросов и ответовДано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где
10-11 класс|
|
X(1) - сумма элементов массива R, значения которых лежат в интервале [2;4];
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которых лежит в интервале [2;4], оформить в виде подпрограммы и составить блоксхему
PascalABC необходимо составлять программу "детским языком(начальным)",а подпрограмму через PROCEDURE,вот.
Прошу помощи.Заранее спасибо =)
Prettyprocenko
01 февр. 2017 г., 16:04:05 (7 лет назад)
7072414
01 февр. 2017 г., 17:45:44 (7 лет назад)
const a=10;
type mas=array[1..a] of integer;
mas1=array[1..3] of byte;
var R, Q, P:mas;
X:mas1;
i:byte;
procedure Form(var R, Q, P:mas);
var sr, sq, sp:byte;
begin
sr:=0;
sq:=0;
sp:=0;
for i:=1 to a do
begin
if (R[i]>=2) and (R[i]<=4) then sr:=sr+R[i];
if (Q[i]>=2) and (R[i]<=4) then sq:=sq+R[i];
if (P[i]>=2) and (R[i]<=4) then sp:=sp+R[i];
end;
x[1]:=sr;
x[2]:=sq;
x[3]:=sp;
writeln('Massiv x');
for i:=1 to 3 do
write(x[i]:3);
end;
begin
randomize;
for i:=1 to a do
begin
R[i]:=random(10);
Q[i]:=random(10);
P[i]:=random(10);
end;
writeln('Massiv r');
for i:=1 to a do
write(R[i]:3);
writeln;
writeln('Massiv Q');
for i:=1 to a do
write(Q[i]:3);
writeln;
writeln('Massiv P');
for i:=1 to a do
write(P[i]:3);
end.
Ответить
Другие вопросы из категории
Вывести четырехзначное число.Превратить его в двузначное, отбросив первую и последнюю цифры. Вывести полученное двузначное число на экран.
Буду очень благодарна:З
Читайте также
Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где X(1) - сумма элементов массива R, значения которых лежат в интервале [2;4];
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
вот задание: дано: массивы А(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) заполнены случайными числами. Сформировать третий массив, каждый элемент которого равен большему из соответствующих
элементов данного массива. Вывести три массива.
Разработать программу для решения задачи, ввод данных организовать через рабочий лист MS Excel (Написать код)
Из данного массива А трехзначных чисел записать в массив В элементы, содержащие цифру 5.
Исходные данные на картинке. Заранее Спасибо!
1. Написать программу, которая выводит на экран сумму средних арифметических значений двух вещественных массивов из 10 элементов.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
Вы находитесь на странице вопроса "Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.