ответ: попробуй
объяснение:
void __fastcall tform1: : button1click(tobject *sender)
{
int count = 0;
tstringlist *list = new tstringlist; // г±г®г§г¤г*гґг¬ г±гїгёг±г®гє
list-> loadfromfile("f: \\гљгіг«гјгігёг*\\info.txt");
memo1-> text = list-> text;
list-> delimitedtext = memo1-> text;
memo2-> text = list-> delimitedtext;
for (int i=0; i < list-> count; i++)
{
if ( list-> strings[i].length() < = 4 )
{
count++;
}
}
label1-> caption = inttostr(count);
delete list;
list = null;
}
begin
var n:=ReadInteger('n=');
var a:=MatrixRandom(n,n,-50,50);
var s:=0;
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:4);
s+=a[i,i];
Writeln
end;
Writeln('S=',s)
end.
Тестовое решение:
n= 5
8 34 3 -6 22
46 1 3 -19 11
41 16 -41 -6 -30
46 37 30 -48 -6
33 14 8 42 13
S=-67