Предмет:
ИнформатикаАвтор:
jazlynProgram 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.
Автор:
kennetholsonДобавить свой ответ
помогите пожалуйста!С1 по математике
Cos2x+sin^2x=0,26. решить уравнение ,найти корни [3п; 9п/2]
Предмет:
МатематикаАвтор:
cubbyОтветов:
Смотреть
кипятильник включен в сеть с напряжением 127 B.Определить силу тока и сопротивление нагревательного элемента,если за 10 мин через него проходит 4,8 к,Ка
помогите решить задачу,завтра экз...пжл** Тоже массивом. Найти максимальный четный элемент массива и его номер при условии, что все элементы различные.
составить программу
Предмет:
ИнформатикаАвтор:
ronaldОтветов:
Смотреть
Предмет:
МатематикаАвтор:
jazlynow2iОтветов:
Смотреть