Написать программу на С# для решения следующей задачи: в матрице D(10, 10) найти строки с наибольшей и наименьшей суммой элементов и вывести на печать данные строки и суммы.

Объяснение:

using System;

class Program

{

   static int P(string p)

   {

       int a = 0, dec = 1;

       for (int i = p.Length - 1; i >= 0; i--)

       {

           a += (p[i] - '0') * dec;

           dec *= 10;

       }

       return a;

   }

   static void Main(string[] args)

   {

       int minSum = 1000000000, maxSum = 0, itMin = 0, itMax = 0;

       for (int i = 0; i < 10; i++)

       {

           int nowSum = 0;

           string a = Console.ReadLine();

           string[] now = a.Split(' ');

           for (int j = 0; j < now.Length; j++)

           {

               int n = P(now[j]);

               nowSum += n;

           }

           if (minSum > nowSum)

           {

               itMin = i;

               minSum = nowSum;

           }

           if (maxSum < nowSum)

           {

               itMax = i;

               maxSum = nowSum;

           }

       }

       Console.WriteLine("{0} - строка с минимумом, {1} - строка с максимумом", itMin + 1, itMax + 1);

       Console.ReadLine();

   }

}

Домик
uses graphABC; beginsetwindowsize(800,600);setpencolor(clblue);setbrushcolor(clblue);rectangle(0,0,800,400);setpencolor(clgreen);setbrushcolor(clgreen);rectangle(0,400,800,600); setpencolor(clblack);setbrushcolor(clSilver);rectangle(50,300,250,500);rectangle(250,500,500,300);line(50,300,150,200);line(150,200,250,300);line(400,200,500,300);line(150,200,400,200);floodfill(150,250,clsilver);floodfill(300,250,clMaroon);setbrushcolor(claqua);rectangle(110,360,190,440);rectangle(280,360,360,440);setbrushcolor(clSilver);rectangle(280,180,320,230);setbrushcolor(clMaroon);rectangle(400,350,470,500);setbrushcolor(claqua);circle(150,270,20);setbrushcolor(clBrown);rectangle(650,400,670,500);setbrushcolor(clgreen);ellipse(570,150,750,420);end.

КРУГ

uses graphabc;
var a,b,c,i,count:integer;

begin
floodfill(1, 1, clblue); {çàêðàøèâàåì ïðÿìîóãîëüíèê}
setbrushstyle(bsClear); {ñîçäà¸ì êðóãè}
{êîðäèíàòû êðóãà}
a:=100;
b:=100;
c:=50;
count:=1;

for i:=1 to 15 do {}
begin
if(count <= 4) then
begin
circle(a,b,c);
floodfill(a, b, clwhite);
a:=a+90;
end;
if(count = 5) then
begin
circle(a,b,c);
floodfill(a, b, clwhite);
a:=100;
b:=b+90;
count:=0;
end;
count:=count+1;
end;
end.
вот еще одна прога
program grnebo;
uses graphABC,crt;
var
x,y:integer;
n,i,r,k:integer;
m:array [1..6] of integer;
begin
randomize;
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
for i:=1 to 50 do begin
x:=300 + random(510)-200;
y:=250 + random(400)-200;
r:=10;
delay(100);
k:= random(6)+1;
SetBrushColor(m[k]);
circle(x,y,r);
end;
end.

ЛИЦО
uses crt,graphABC; var x,y,ul,gr,nt,w,r,h:integer;     c:char;     label 1; procedure uslov; begin   if w=0 then DrawPicture(nt,x,y,r,h);   if w=1 then DrawPicture(ul,x,y,r,h);   if w=2 then DrawPicture(gr,x,y,r,h); end; begin r:=650; h:=400; w:=1; HideCursor; 1: circle(300,200,100);    arc(300,350,100,60,120);    circle(340,170,20);    circle(340,180,10);    circle(260,170,20);    circle(260,180,10);    RoundRect (290,180,310,230,10,10);    line(300,100,300,140);    line(260,110,250,140);    line(340,110,350,140);    SaveWindow('d:\g');    ClrScr;    circle(300,200,100);    line (250,250,350,250);    circle (340,170,20) ;    circle (340,180,10);    circle (260,170,20);    circle (260,180,10);    RoundRect (290,180,310,230,10,10);    line (300,100,300,140);    line (260,110,250,140);    line (340,110,350,140);    SaveWindow('d:\n');    ClrScr;    circle(300,200,100);    arc(300,220,50,210,-30);    circle (340,170,20) ;    circle (340,180,10);    circle (260,170,20);    circle (260,180,10);    RoundRect (290,180,310,230,10,10);    line (300,100,300,140);    line (260,110,250,140);    line (340,110,350,140);    SaveWindow('d:\u');    ClrScr; gr:=LoadPicture('d:\g'); nt:=LoadPicture('d:\n'); ul:=LoadPicture('d:\u'); uslov; repeat if keypressed then  begin   c:=readkey;   case c of   #110:begin       ClrScr;       w:=0;       DrawPicture(nt,x,y,r,h);  //нейтраль       end;   #117:begin       ClrScr;       w:=1;       DrawPicture(ul,x,y,r,h); //улыбка       end;   #104:begin       ClrScr;       w:=2;       DrawPicture(gr,x,y,r,h);   //грусть       end;   #72:begin // клавиша вверх       ClrScr;       y:=y-5;       uslov;       end;   #75:begin //клавиша вправо       ClrScr;       x:=x+5;       uslov;       end;   #80:begin //клавиша вниз       ClrScr;       y:=y+5;       uslov;       end;   #77:begin //клавиша влево       ClrScr;       x:=x-5;       uslov;       end;   #44:begin //клавиша "<" меньше      ClrScr;      r:=r-7;      h:=h-5;      uslov;      end;   #46:begin //клавиша ">" больше       ClrScr;       r:=r+7;       h:=h+5;       uslov;       end;   #114:begin //клавиша "r" красный       ClrScr;       SetPenColor(clred);       goto 1       end;   #103:begin //клавиша "g" зеленый       ClrScr;       SetPenColor(clgreen);       goto 1       end;   #98:begin //клавиша "b" синий       ClrScr;       SetPenColor(clblue);       goto 1       end;   #121:begin //клавиша "y" желтый       ClrScr;       SetPenColor(clyellow);       goto 1       end;   #97:begin //клавиша "a" черный       ClrScr;       SetPenColor(clblack);       goto 1       end;   #113:begin //клавиша "q" увеличение контура втрое       ClrScr;       SetPenWidth(3);       goto 1       end;   #119:begin //клавиша "w" уменьшение контура Перемещение - стрелки лево, право, вверх, вниз');       writeln('  Увеличить рисунок - ">"');       writeln('  Уменьшить рисунок - "<"');       writeln('  Контур толще  - "q"');       writeln('  Контур тоньше - "w"');       writeln('  Улыбка  - "u"');       writeln('  Грусть  - "h"');       writeln('  Нейтрал.- "n"');       writeln('  Красный - "r"');       writeln('  Зеленый - "g"');       writeln('  Синий   - "b"');       writeln('  Желтый  - "y"');       writeln('  Черный  - "a" "F1"');       writeln;       writeln;       writeln('       Выход из окна любое действие над картинкой');       end;   end;  end; until c=#27; end.

Её изобрёл Дуглас Карл Энгельбарт из Стэнфордского исследовательского института. Первая мышь выглядела как деревянная коробочка, которая перемещалась по столу на колёсиках, отсчитывая их обороты и развороты. Затем эта информация вводилась в компьютер и управляла перемещением курсора на экране. Энгельбарт не может припомнить, кому принадлежит авторское право на название устройства: "Устройство выглядело как мышь с хвостом, и мы все в лаборатории его так и называли".
  Отметим, что Энгельбарт работал над созданием манипулятора не один: он является автором идеи и разработчиком концепции, но само устройство сделал не он. Первая мышь была сделана руками аспиранта по имени Билл Инглиш (Bill English), а присоединившийся позднее Джеф Рулифсон (Jeff Rulifson) существенно улучшил конструкцию мыши и разработал для неё программное обеспечение. В архивах Стэнфордского университета хранится учебный фильм 1968 года, в котором демонстрируется первая компьютерная мышь и её потрясающие для того времени возможности. Сейчас Дуглас Энгельбарт мог бы быть богаче и известней Билла Гейтса, но он сознательно "ушёл в тень" и о нём мало кто вспоминает. В 68-м он получил от работодателей за своё изобретение чек на $10 тысяч и весь гонорар внёс в качестве первого вклада за скромный загородный домик.