var a: array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do begin
b[i]:=0;
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
writeln('b[',i,'] = ',b[i]);
end;
End.
1. Для общения , разговора . 2 . Для получения информации ... 8. Создать его на рабочем столе , включить
Светлый,яркий,огромный,тусклый,широкий,близкий
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
Например:
Звезда это О, их свойства это С
в О название звезды, в С удаленность от солнца, масса