Хелп ми плиз, сын тупит....

вот код программы, принятый преподом у человека с аналогичным вариантом. у меня сиё не пашет - выдаёт ошибку. посмотрите, кому не лень у себя на компах этот код пожалуйста.
P.S.: содержание формы тоже напишите (я чайник, мне можно) честный парень -это я от себя. Хотя согласен с Вами пусть нахрен учит. Но щас надо сдавать зачет.


procedure TForm1.Edit1Change(Sender:TObject);
begin
If Edit1.Text<>''then
StringGrid1.RowCount:=StrToInt(Edit1.Text);
end;
procedure TForm1.Button1Click(Sender:TObject);
Var a:array[1..10]of integer;
i,n,k:integer;
begin
n:=StrToInt(StringGrid1.Cells[1,i-1]);
For i:=1 to n do
a[i]:=StrToInt(StringGrid1.Cells[1,i-1]);
for i:=1 to n do
StringGrid1.Cells[0,i-1]:=IntToStr(i);
for i:=n DownTo 1 do
If(a[i]<0) and (i mod 2=0) then
k:=i;
Label2.Caption:='k='+IntToStr(k)+#13+'Число='+IntToStr(a[k]);
end;
end.

Это сообщение отредактировал uhbitxrj - 5.01.2011 - 13:01

ну подскажите пацану

заморочено както.
сколько денег дадите?

Опиум
Сам не пойму дать по башке чтоб соображал?

ща вспомню

бл@ ведь недавно типа такого же делала

RezidentkaSS
Склероз?

uhbitxrj
ну иди нах@й тогда

)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

RezidentkaSS
Злая?

это дерьмо.

писать надо MOD

uhbitxrj держи

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
const razmer=20;
var
mas:array [1..razmer] of integer;
i:integer;

begin
// тут както заполняем массив. хоть так
//mas[1]:=10;
//mas[2]:=-5
//

//начинаем поиск
i:=0;
repeat
inc(i)
until (((i mod 2)=0) and (mas[i]<0)) or (i=razmer);

if ((i mod 2)=0) and (mas[i]<0) then writeln('вот он первый отрицетельный четный:',i,' ',mas[i])
else writeln('нет такого');


end.

жду 100р на телефон.

придет кекс с гулянки

и что?