Составить программу на pascal составить программу, прибавляющую единицу ко всем элементам линейной таблицы.

Алгоритм на условном языке.

m:=0.  "количество отрицателных"
p:=0    "количество положительных"
i:=1.
пока i<>0 повторять
    i:=прочитать число, введенное с клавиатуры.
    если i>0 то p:=p+1.
    если i<0 то m:=m+1.
конец цикла пока.
вывести на экран('процент положительных = ', p/(p+m)).
вывести на экран('процент отрицательных = ', m/(p+m)).

Алгоритм будет верно работать, если введено хотя бы одно число, отличное от нуля. В противном случае возникнет ошибка деления на ноль. В нормальных программах подобные случаи отлавливаются и корректно обрабатываются.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,x,y,r:Integer;
begin
Randomize;
Image1.Picture := nil;
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.Rectangle (0,0,Image1.Width,Image1.Height);
Image1.Canvas.Brush.Color:=clWhite;

for a:=1 to RandomRange(9,20) do
begin
x:=RandomRange(50,1000);
r:=RandomRange(1,15);
y:=RandomRange(50,550);
Image1.canvas.Ellipse(x-r,y-r,x+r,y+r);
end;

end;
procedure TForm1.Image1Click(Sender: TObject);
begin

end;

end.

 

 

на форме image и кнопка

(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты :(   )