// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var m:=ReadInteger('M=');
var a:=MatrixRandom(m,m,1,9);
for var i:=0 to m-1 do begin
for var j:=0 to m-1 do Print(a[i,j]);
Writeln
end;
var si:=0;
for var i:=0 to m-1 do begin
var sj:=0;
for var j:=0 to m-1 do sj+=sqr(a[i,j]);
si+=sj
end;
Writeln('S=',sqrt(si))
end.
<u><em>Тестовое решение:</em></u>
M= 6
6 5 2 7 1 1
8 7 9 3 1 8
2 1 7 9 5 7
3 2 8 1 1 8
3 9 1 2 6 7
5 3 5 4 8 3
S=32.6190128606002
Program project1;
uses
crt,math;
var s:real; i,j,f:real; a:integer;
begin
writeln('vvedite 1 chislo ');readln(i);
writeln('vvedite 2 chislo ');readln(j);
writeln('vvedite 3 chislo ');readln(f);
s:=i;
if j<s then s:=j;
if f<s then s:=f;
if s<0 then
begin
if i<0 then inc(a);
if j<0 then inc(a);
if f<0 then inc(a);
writeln('kolichestvo otricatelnix ',a:2);
end
else
begin
if i>0 then i:=i*-1;
if j>0 then j:=i*-1;
if f>0 then f:=i*-1;
end;
writeln('min chislo ',s:2:0);
readln;
end.
1280x1024x8= 10485760 бит, делим на 8, будет 1310720 байт, делим на 1024, будет 1280кб или 1мб
работает так:
вводим, например, то, что в памяти, пока есть ошибка, он повторяет стих, как только расскажет без ошибок, уходит на конец.