сервис вопросов и ответован массив х(n).элементы массива,значения которых не принадлежат интервалу[A,B], разделить на 100 и подсчитать кол-во таких элементов. значения всех
10-11 класс|
|
остальных элементов возвести а квадрат.
помогите написать программы в паскале
19960611
19 февр. 2015 г., 22:13:02 (9 лет назад)
Алексаяя
20 февр. 2015 г., 1:11:14 (9 лет назад)
var
x:array[1..100] of real;
a,b,sum,i,n:integer;
begin
sum:=0;
readln(n,a,b);
for i:=1 to n do
read(x[i]);
for i:=1 to n do
begin
if (x[i]>=a) and (x[i]<=b) then
begin
sum:=sum+1;
x[i]:=x[i]/100;
end
else
x[i]:=x[i]*x[i];
end;
for i:=1 to n do
write(x[i],' ');
writeln;
writeln('Сумма:',sum);
end.
Ответить
Другие вопросы из категории
Помогите пожалуйста, срочно нужно!
Считая, что каждый символ кодируется одним байтом, определите информационный объем следующего высказывания: " В одном килограмме 1000 граммов."
С объяснением как вы решали.
5.Дан массив
А(3*4). Найти количество отрицательных элементов в каждой строке.
Читайте также
Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где X(1) - сумма элементов массива R, значения которых лежат в интервале [2;4];
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
Дан массив X(N).Найти среднее арифметическое элементов массива,значения которых заключены в интервале [-3;3]. Если эта величина больше
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
ПАСКАЛЬ АБС!! 10 КЛАСС! СРОЧНО!! Дан массив А(n). Определите кол-во нечетных элементов массива, стоящих на четных местах. Выведите на
экран исходный массив и найденное кол-во.
Программирование в VBA. Задача:Массив сотоит из двадцати элементов. Сколько элементов массива нужно сложить (начиная с первого), чтобы сумма превысила
число 100. Вот моя программа:
Private Sub CommandButton1_Click()
Dim C(1 To 20) As Integer
Dim I, N, S As Integer
For I = 1 To 20
C(I) = Cells(I, 1)
Next I
S = 0
N = 0
For I = 1 To 20
If S <= 100 Then S = S + C(I) And N = N + 1
Next I
Cells(2, 3) = "Количество элементов массива, сумма которых превышает 100=" & N
End Sub
как результат выводит "0" (т.е. N заданное изначально). Может, кто-то сможет подсказать ошибку? Это срочно!
Вы находитесь на странице вопроса "ан массив х(n).элементы массива,значения которых не принадлежат интервалу[A,B], разделить на 100 и подсчитать кол-во таких элементов. значения всех", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.