const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.
Ответ дал: Гость
найти сумму элементов одномерного массива. размер произвольный. элементы вводятся с клавиатуры.
program summa;
var a: array[1..100] of real;
i, n: integer;
s: real;
begin
write (‘n=’); readln (n);
s: =0;
for i: =1 to n do
begin
write (‘введитечисло’); readln (a[i]);
s: =s+a[i];
end;
writeln(‘сумма элементов равна ‘,s);
end.
Ответ дал: Гость
var
a: array [1..20] of integer;
i,max: integer;
begin
max: =0;
for i: =1 to 20 do
begin
if i mod 2=0 then a[i]: =random(50)+50
else a[i]: =random(50)+150;
if a[i]> max then max: =a[i];
write(a[i]: 4);
end;
writeln;
writeln('max=',max);
end.
Ответ дал: Гость
для этого модема нужно: источник питания: через внешний адаптер питания переменного тока 9 в /1a параметры блока питания robiton dn1000: блок питания 1000ма, нестабилизированный выходное напряжение: 3,0 / 4,5 / 6,0 / 7,5 / 9,0 / 12,0 в 12,0 вполне подойдет. даже не нужно заморачиваться правильным подключением +/- т.к. модем питается переменкой. я бы порекомендовал сначала включить бп на 7,5 вольт. если модем будет так работать, то так и оставить. если не работает, переключить на 9 вольт. только ни в коем случае не переключайте выходное напряжение бп, если он подключен к модему! в момент переключения, напряжение на выходе бп может сильно прыгнуть!
Популярные вопросы