Как найти сумму элементов 1 строки?program sbb;uses crt;vari,j,s:integer;a:array[1..5,1..10] of integer;beginfor i:=1 to 5 dobeginfor j:=1 to 10 dobeginrandom(50);a[i,j]:=random(50);write(' ');write(a[i,j]);end;writelnend;
Uses crt; Var i,j,s:integer; a:array[1..5,1..10] of integer; Begin for i:=1 to 5 do begin for j:=1 to 10 do begin random(50); a[i,j]:=random(50); write(' '); write(a[i,j]); if i=1 then begin s:=s a[i,j]; end; end; writeln end; writeln(s); end.
Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
