Предмет: Обществознание, автор: Аноним

помогите пожалуйста

Приложения:

Ответы

Автор ответа: Zuji2003

0

физические - спортсмен

интеллектуальные- учёный инженер

духовные- священник

P.S. в след. раз скидый ещё текст так тебе быстрей ответят а то я щас могу быть не прав ;)

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: бпрплаа

обведи номер повествовательного предложения 1)немедленно просыпайтесь!2)вы сегодня собираетесь вставать?!3)как приятно проснуться на рассвете!4)понаблюдай за поросыпающейся природой!

1 год назад

Предмет: Алгебра, автор: YaKrevedko1

решите систему уравнений
u-v=-10
2u+3v=15

1 год назад

Предмет: Алгебра, автор: 00000помогите00000

УПРОСТИТЬ ВЫРАЖЕНИЕ (a в степени 1+n)^3:a

1 год назад

Предмет: Биология, автор: friday19042005

Напишите признаки растений семейства крестоцветных

8 лет назад

Предмет: Информатика, автор: snegincairina

Помогите доделать программу в Делфи!!!!!
1. Найти количество элементов массива, меньших величины С, введенной с клавиатуры.
2. Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.
3. Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 20%, а потом — все остальные

Часть программы уже есть:
unit UnitVector;

interface

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

type
TformVector = class(TForm)
sgVectorInput: TStringGrid;
btnVectorInput: TButton;
Label1: TLabel;
editVectorSize: TEdit;
btnVectorSize: TBitBtn;
btnRandomVector: TButton;
Button1: TButton;
Label2: TLabel;
Edit1: TEdit;
procedure btnVectorInputClick(Sender: TObject);
procedure btnVectorSizeClick(Sender: TObject);
procedure btnRandomVectorClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formVector: TformVector;
A : array[1..100] of integer;
SizeA : integer;

implementation

{$R *.dfm}

procedure TformVector.btnRandomVectorClick(Sender: TObject);
var i : integer;
begin
Randomize;
for i := 0 to SizeA - 1 do
begin
A[i]:=random(100)-30;
sgVectorInput.Cells[i,0]:=IntToStr(A[i]);
end;
end;

procedure TformVector.btnVectorInputClick(Sender: TObject);
var i : integer;
begin
for i := 0 to SizeA - 1 do A[i]:=StrToInt(sgVectorInput.Cells[i,0]);

end;

procedure TformVector.btnVectorSizeClick(Sender: TObject);
begin
SizeA:=StrToInt(editVectorSize.Text);
sgVectorInput.ColCount:=SizeA;
end;

procedure TformVector.Button1Click(Sender: TObject);
B,C: integer
begin
B:=0;
a[i]< StrToInt(edit1)
end;

procedure TformVector.FormCreate(Sender: TObject);
begin
SizeA:=10;
end;

end.

8 лет назад