[ДевочкаBlond]

Здравствуйте... Ребята мне очень нужна ваша помощь. Так как я не програмистка я умоляю вас помогите сделать 4 задачи на делфи... Все говорят что они очень лёгкие. Может вы поможите мне?

Без имени-2.zip

[Black Raider]

4-e

Код:

procedure TForm1.Button1Click(Sender: TObject);
var arr:array[1..10,1..10] of integer;
    i,j,kol:integer;
    st:string;
begin
  for j:=1 to 10 do
    for i:=1 to 10 do
    begin
      if (i<=5) then begin
        if (j<=5) then arr[j,i]:=0
        else arr[j,i]:=i;
      end
      else begin
        if (j<=5) then arr[j,i]:=i+(j-1)
        else arr[j,i]:=0;
      end;
    end;
  kol:=0;
  for j:=1 to 10 do
    for i:=1 to 10 do
      if arr[j,i]>0 then kol:=kol+1;
  memo1.Clear;
  for i:=1 to 10 do
  begin
    st:='';
    for j:=1 to 10 do
    begin
      st:=st+inttostr(arr[i,j])+'  |  ';
    end;
    memo1.Lines.Add(st);
  end;
  showmessage('Ненулевых-'+inttostr(kol));
end;

[ДевочкаBlond]

Спасибо Большое)))) Не ужели есть добрые люди!!!

[Black Raider]

5-е в консольном приложении?

[ДевочкаBlond]

Ну не знаю наверно. в делфи делается.

[Black Raider]

оно и понятно что в делфи.
ладно. дома сделаю вам 5-е.
часа через 3 буду дома и сделаю.

[ДевочкаBlond]

А в 4том там надо в Stringrid выводить.