Возьми напиши компьютер по середине потом
клавиатура
о.
монитор
п
ь
ю
т
е
р
дальше возит открой книгу по информ и найди слова
var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
program xyz;
var x,y,z,a,b,c:real;
begin
readln(x,y,z);
x:=(sqrt(a)+b)/2*a;
y:=sqrt(abs((3*x+4)/(1-2*x)));
z:=abs(sqr(Cos(x)))/(Ln(1+y));
writeln(z);
end.
80*128*8=81920 бит=10 Кбайт
30/10=3 с
Ответ: 3 с
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
var n := ReadInteger('n=');
var m := MatrRandom(n, n); m.Println;
var max := m.ElementsWithIndexes.MaxBy(t -> t[0]);
Println($'Максимальный = {max[0]}');
Println($'Сумма строки = {m.Row(max[1]).Sum}');
Println($'Сумма столбца = {m.Col(max[2]).Sum}');
end.