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.
Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...
Информационные модели представляют объекты и процессы в образной или знаковой форме, а также в форме таблиц, блок-схем, графиков и т. д. Образные модели (рисунки, фотографии и др. ) представляют собой зрительные образы объектов, зафиксированные на каком-либо носителе информации (бумаге, фото- и кино- плёнке и др.) . Широко используются образные информационные модели в обучении, где требуется классификация объектов, по их внешним признакам (вспомните учебные плакаты по ботанике, биологии и физике) . Знаковые информационные модели строятся с использованием различных языков (знаковых систем) . Знаковая информационная модель может быть представлена в форме текста (например, программы на языке программирования) или формулы (например, второго закона ньютона) . Иногда при построении знаковых информационных моделей используются одновременно несколько различных языков. Примерами таких моделей могут служить чертежи, электрические и логические схемы, географические карты, блок-схемы алгоритмов, графики и диаграммы и др. Во всех этих моделях используются одновременно как язык графических элементов, так символьный язык.
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.
Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...
Да, является.