Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197484
22.12.2019, 23:42
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:

Вычислить сумму квадратов чисел, принадлежащих промежутку (A, B] и стоящих на нечетных местах; подсчитать количество чисел, не меньших заданного С.

Обсуждение

давно
puporev
Профессор
401888
1232
23.12.2019, 07:31
общий
это ответ
Здравствуйте, dkhrebtovich!
[code lang=pascal]var x:array[1..100] of real;
n,i,k:integer;
a,b,c,s:real;
begin
repeat
write('Введите размеры массива от 10 до 100 n=');
readln(n);
until(n in [10..100]);
randomize;
writeln('Массив');
for i:=1 to n do
begin
x[i]:=9*random;
write(x[i]:5:2);
end;
writeln;
repeat
writeln('Введите диапазон чисел для поиска a<b');
readln(a,b);
until a<b;
write('Введите число для определения минимума c=');
readln(c);
s:=0;
k:=0;
for i:=1 to n do
begin
if(x[i]>a)and(x[i]<=b)and(i mod 2<>0)then s:=s+sqr(x[i]);
if x[i]>=c then k:=k+1;
end;
writeln('Сумма квадратов элементов принадлежащих промежутку (',a:0:2,',',b:0:2,']');
writeln('и стоящих на нечетных местах=',s:0:2);
writeln('Количество чисел, не меньших ',c:0:2,'=',k);
end.[/code]
Форма ответа