• Решать массивом. Найти сумму элементов, принадлежащих промежутку от А до В (А и В вводить с клавиатуры). составить программу

Ответы 1

  • Program n1;Uses CRT;Const n=20;Var m: array[1..n] of integer; i,a,s,b: integer;beginClrScr;Randomize;For i:=1 to n do begin m[i]:=random(50); write(m[i]:3); end; writeln;writeln('Введите A и B');readln(a,b); For i:=a to b do s:=s+m[i];writeln('Сумма равна ',s);readlnend.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years