разминка!!

[BigBrother]

Разминайтесь. Делайте на Дельфи или на С++.

Дано одномерный массив с длиной в 10 элементов. Найти сумму отрицательных элементов в этом массиве.

[Duke]

Дано одномерный массив с длиной в 10 элементов. Найти сумму отрицательных элементов в этом массиве.

Хм....зачем мне это?

[BigBrother]

Чё за фигня ?

Хм....зачем мне это?

это разминка.

Дано: тектовый файл. Зашифровать его. Каждый символ увеличить на 1. A станет B, B - C и т.д.

[Salagin]

BigBrother
Наверное, придецца писать ответы самому...

[NightBlaze]

BigBrother
Хммм... Странная у тебя разминка. Эти проги еще в школе на Бейсике писали...

[BigBrother]

Salagin

Наверное, придецца писать ответы самому...

Код Выделить Развернуть

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var a:array [1..n] of Integer;
   E,i:Integer;
begin
E:=0;
a[1]:=-2;a[2]:=-2;a[3]:=-2;a[4]:=-2;a[5]:=-2;
a[6]:=-2;a[7]:=-2;a[8]:=-2;a[9]:=2;a[10]:=-2;
 for i:=1 to n do
  if a[i]<0 then
 E:=E+a[i];
 caption:=inttostr(E);
end;
 Совершенствуйте код!

[NightBlaze]

BigBrother

CODE procedure TForm1.Button1Click(Sender: TObject); const n=10; var a:array [1..n] of Integer;E,i:Integer; begin E:=0; a[1]:=-2;a[2]:=-2;a[3]:=-2;a[4]:=-2;a[5]:=-2; a[6]:=-2;a[7]:=-2;a[8]:=-2;a[9]:=2;a[10]:=-2;for i:=1 to n do if a<0 thenE:=E+a;caption:=inttostr(E); end;

Эй! А как же ввод значений массива пользователем?

[BigBrother]

NightBlaze

Эй! А как же ввод значений массива пользователем?

через Edit сделать или через StringGrid? если через edit, то edit один использовать или несколько?

[NightBlaze]

А это уже как хочешь. Главное чтобы эту прогу мог использовать абсолютно не шаращий в компах человек

[BigBrother]

NightBlaze

чтобы эту прогу мог использовать абсолютно не шаращий в компах

Код Выделить Развернуть

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Label1: TLabel;
   Edit1: TEdit;
   Edit2: TEdit;
   Edit3: TEdit;
   Edit4: TEdit;
   Edit5: TEdit;
   Edit6: TEdit;
   Edit7: TEdit;
   Edit8: TEdit;
   Edit9: TEdit;
   Edit10: TEdit;
   Button1: TButton;
   procedure FormCreate(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 Edits : array [1..10] of TEdit;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
 Label1.Caption:='Заполните каждое поле значением';
 for i := Low(Edits) to High(Edits) do
 Edits[i] := TEdit(FindComponent('Edit' + IntToStr(i)));

 for i := Low(Edits) to High(Edits) do Edits[i].Text := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
 var
  a:array [1..n] of Integer;
  E,i:Integer;
begin
E:=0;
for i :=1 to n do
 begin
   a[i]:=StrToInt(Edits[i].Text);
 if a[i]<0 then
 E:=E+a[i];
                end;
Label1.Caption:='Сумма отрицательных чисел равна '+IntToStr(E);
end;

end.
так пойдёт?