Консультация № 196801
25.10.2019, 12:06
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M, K].

Pascal

Приложение:
Pascal

Обсуждение

давно
Старший Модератор
31795
6196
25.10.2019, 13:12
общий
это ответ
Здравствуйте, rail!

Смотрите приложение:[code lang=pascal]const
n=20;
var
a:array[1..n]of integer;
b,c,d,m,k:integer;
begin
d:=0;
c:=0;
repeat
write('enter m [',-n,'..',n,']:');
readln(m)
until (m+n) in [0..2*n];
repeat
write('enter k [',m,'..',n,']:');
readln(k)
until(k+n) in [m+n..2*n];
for b:=1 to n do
begin
a[b]:=random(2*n)-n;
write(a[b]:4);
if not odd(b)then d:=d+a[b];
if (a[b]+n) in [m+n..k+n]then inc(c)
end;
writeln;
writeln('result summa:',d);
writeln('result count:',c);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа