сформировать двумерный целочисленный массив A[1.10,1.10]

@NV_art86rus · Регистрация: 23.04.2011

Author24 — интернет-сервис помощи студентам

Составить программу, в которой сформировать двумерный целочисленный массив A[1..10,1..10] из случайных целых чисел и подсчитать суммы строк массива

@Дикутенз · 04.06.2013, 09:55

Pascal

Uses crt;
const n=10;
Var A:array[1..n,1..n] of integer;
    i,j,s:integer;
Begin clrscr; randomize;
  for i:=1 to n do
   for j:=1 to n do A[i,j]:=Random(n*n);
  for i:=1 to n do
   Begin
     for j:=1 to n do Write(A[i,j]:4);
     WriteLn;
   End;
  for i:=1 to n do
   Begin
     s:=0;
     for j:=1 to n do s:=s+A[i,j];
     WriteLn('summa ',i,' stroki s=',s);
   End;
  ReadLn;
End.

@Puporev · 04.06.2013, 09:57

Pascal

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
writeln('Сумма':n*3+8);
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    s:=s+a[i,j];
    write(a[i,j]:3);
   end;
  writeln(s:7);
 end;
readln
end.

@NV_art86rus 10 / 10 / 1 Регистрация: 23.04.2011 Сообщений: 147
		1
	сформировать двумерный целочисленный массив A[1.10,1.10] 04.06.2013, 09:44. Показов 1240. Ответов 2 Метки нет (Все метки) Составить программу, в которой сформировать двумерный целочисленный массив A[1..10,1..10] из случайных целых чисел и подсчитать суммы строк массива 0

	04.06.2013, 09:57

сформировать двумерный целочисленный массив A[1.10,1.10]

Решение