[закрыть]

Регистрация на сайте

Если вы уже зарегистрированы, пожалуйста войдите на сайт!
Email:
Имя (ник):
Пароль:
Повторите пароль:
  
Защита от роботов:

Плохо видно


Найти надо ошибку! срочняк!!!

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; Label1: TLabel; procedure StringGrid1Click(Sender: TObject); procedure Label1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.StringGrid1Click(Sender: TObject); const M = 20; var Arr : array[1..M] of Integer; i, F : Integer; begin repeat //Заполняем массив. Randomize; for i := 1 to M do begin case Random(10) of 0 : Arr := 1; 1 : Arr := -1; else Arr := 2; end; //Распечатка элементов массива. if i > 1 then Write(', '); Write(Arr); end; //Определяем какое число встречается раньше - //положительное или отрицательное. F := 0; for i := 1 to M do begin if Arr > 0 then begin F := 1; Break; end else if Arr < 0 then begin F := -1; Break; end; end; procedure TForm1.Label1Click(Sender: TObject); F:integer; begin if F > 0 then Writeln('Раньше встречается положительное число.') else if F < 0 then Writeln('Раньше встречается отрицательное число число.') else Writeln('Массив содержит только нули.'); end; end.



Знаю верный ответ Найти ответ на вопрос


2 ответа к вопросу “Найти надо ошибку! срочняк!!!”

  • ответ #0 / ответил: Служба поддержки

Ответить на вопрос


Не хотите вводить проверочный код? Пройдите регистрацию!
Проверочный код:

обновить картинку

Статистика

  • © 2010-2011. Копирование материалов с сайта строго запрещено
  • Не нашли ответ? задай свой вопрос