Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 19.04.2016
Сообщений: 12
1

Получить сумму положительных и число отрицательных членов последовательности a1,...,an

23.06.2016, 13:14. Просмотров 1111. Ответов 1
Метки нет (Все метки)


можно рабочий проектик пожалуйста? очень сильно надо, что бы в формате pas было((((
Даны натуральное число n, целые числа a1,a2,...,an.Получить сумму положительных и число отрицательных членов последовательности a1,...,an
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2016, 13:14
Ответы с готовыми решениями:

Получить сумму положительных и число отрицательных членов последовательности
Даны натуральное число n, целые числа a1,a2,...,an.Получить сумму положительных и число...

Получить сумму положительных и отрицательных членов последовательности
Дано натуральное число n, действительные числа a1, ..an ..получить сумму положительных и...

Получить сумму положительных чисел и отрицательных членов последовательности
2. Даны натуральное число n, целые числа a,...,a. Получить сумму положительных чисел и...

Получить сумму положительных и число отрицательных членов последовательности
Одномерный массив Даны натуральные числа n, a1, a2, … ,an. В последовательности a1, a2,…,an...

1
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
23.06.2016, 17:59 2
Лучший ответ Сообщение было отмечено Patimat как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
var
  Form1: TForm1;
  n,i,s,q:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=true;
Button2.Enabled:=false;
Memo1.Clear;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
val(Edit1.Text,n,k);
if(k<>0)or(n<1)then
 begin
  showmessage('Неерно введено количество чисел');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
Button1.Enabled:=false;
Button2.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var a,k:integer;
begin
val(Edit2.Text,a,k);
if k<>0 then
 begin
  showmessage('Введите целое число');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
inc(i);
Memo1.Lines.Add(inttostr(a));
Edit2.Clear;
Edit2.SetFocus;
if a>=0 then s:=s+a
else inc(q);
if i=n then
 begin
  Button2.Enabled:=false;
  Memo1.Lines.Add('Сумма положительных='+inttostr(s));
  Memo1.Lines.Add('Количество отрицательных='+inttostr(q));
 end;
end;
 
end.
0
Вложения
Тип файла: rar Ввод целых чисел.rar (169.8 Кб, 1 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2016, 17:59

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

Получить сумму положительных и число отрицательных членов последовательности
Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных...

Получить сумму положительных и число отрицательных членов последовательности
Задание: Даны натуральное число n, целые числа a1 , .an . Получить сумму положительных и число...

Получить сумму положительных и число отрицательных членов последовательности a1,...,an
Даны натуральное число n, целые числа a1,...,an. Получить сумму положительных и число отрицательных...

Получить сумму положительных и число отрицательных членов указанной последовательности
Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и число...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.