Var
a:array[1..100,1..100]of integer;
m,n,i,j,s,max:integer;
begin
readln(m,n);
for i:=1 to m do
begin s:=0;
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
end;
if s>max then
max:=s;
writeln;
end;
writeln('S: ',max);
end.
240 : 4 =60 минут короче 1 час
Мы ежедневно сталкиваемся с информацией, например читая газету, смотря фильм или телевизор, или просто слушая музыку. Книги - тоже информация. Даже благодаря нашему зрению и слуху мы получаем информацию об окружающем нас мире.
Вот держите )(на всякий s=42
Var z:real; i:integer;
begin
writeln('Введите цену одного килограмма и нажмите <enter> ');
writeln(' (копейки от рублей отделяйте точкой) ');
readln(z); writeln('Вес (граммов) Cтоимость (руб.) ');
for i:=1 to 10 do writeln(i*100:13,z*i/10:10:2); readln
<span>end. </span>