Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Vanchel56
1 / 1 / 1
Регистрация: 12.02.2011
Сообщений: 22
1

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

12.02.2011, 18:40. Просмотров 1031. Ответов 5
Метки нет (Все метки)

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

Даны натуральное число n, действительная матрица . Получить последовательность элементов главной диагонали а11, а22,…, аnn.
Прошу написать эти программы на языке Packal. Буду очень признателен и благодарен за помощь.

Добавлено через 2 минуты
Вот есть коды на эти программы, помогите их собрать в полноценные программы.


1)
Код:


Pascal
1
2
3
4
5
6
7
8
9
count := 0;
sum := 0;
for i := 1 to n do
begin
     if a[i] > 0 then sum := sum + a[i];
     if a[i] < 0 then Inc(count);
end;
Writeln ('Summa = ', sum);
Writeln ('Koli4estvo = ', count);

2)
Код:


Pascal
1
2
3
4
5
6
7
var
    a: array[1..n, 1..n] of real;
    b: array[1..n] of real;
begin
for i := 1 to n do
    b[i] := a[i,i];
end.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2011, 18:40
Ответы с готовыми решениями:

Массив: Вычислить сумму положительных, четных элементов, > 5 и сумму отрицательных членов последовательности
Дана последовательность, состоящая из n чисел, вводимых пользователем с клавиатуры. Вычислить сумму...

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

Получить сумму квадратов всех положительных членов последовательности
Помогите пожалуйста решить задачу:Получить сумму квадратов всех положительных членов...

Получить удвоенную сумму всех положительных членов последовательности
Даны нат. число, действительные числа X1,...,Xn. Получить удвоенную сумму всех положительных членов...

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

5
Доминишинг
3 / 3 / 0
Регистрация: 01.12.2010
Сообщений: 81
12.02.2011, 20:19 2
Pascal
1
2
3
4
5
6
7
8
9
count := 0;
sum := 0;
for i := 1 to n do
begin
if a[i] > 0 then sum := sum + a[i];
if a[i] < 0 then Inc(count);
end;
Writeln ('Summa = ', sum);
Writeln ('Koli4estvo = ', count);
переменные только обьявить нужно.

а второй код даже не является решением

Добавлено через 30 секунд
Цитата Сообщение от Vanchel56 Посмотреть сообщение
Packal.
немножко не так пишется =)
0
SuPeR XaKer
2846 / 1975 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
12.02.2011, 20:21 3
Доминишинг

Не по теме:

А в чём смысл копирования кода?


переменные только обьявить нужно.
А массив то сам заполнить нет не нужно?
1
Доминишинг
12.02.2011, 20:22
  #4

Не по теме:

http://www.cyberforum.ru/pascal/thread137713.html

0
_LoneR_
90 / 90 / 13
Регистрация: 15.01.2011
Сообщений: 494
12.02.2011, 21:21 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
    n=10;
    var a:array[1..n]of integer;
    i,s,k:Byte;
    begin
      Randomize;
      for i:=1 to n do begin
        a[i]:=Random(12)-6;
        writeln(a[i]:2);
      end;
      Writeln;            
      begin
       s:=0;   k:=0;
       for i:=1 to n do
      if a[i]>0 then s:=s+a[i];
        writeln('сумма положительных=',s);
          for i:=1 to n do
       if a[i]<0 then k:=k+1;
        writeln('количество отрицательных=',k);
      end;      
      Readln;
    end.
Добавлено через 19 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
    n=4;
    var a:array[1..n,1..n]of integer; b:array[1..n]of Integer;
    i,j:Byte;
    begin
      Randomize;
 for i:=1 to n do begin
   for j:=1 to n do begin
     a[i][j]:=Random(36)+1;
   write(a[i,j]:4);
   end;
   Writeln;
   end;
   for i:=1 to n do  begin
     b[i]:=0;
    b[i]:=a[i,i];
    end;
    for i:=1 to n do
   Writeln(b[i]);
   Readln;
end.
Добавлено через 21 секунду
1
Vanchel56
1 / 1 / 1
Регистрация: 12.02.2011
Сообщений: 22
12.02.2011, 23:33  [ТС] 6
Спасибо большое, Вы мне очень помогли, в решении задач. Я Вам очень благодарен.
0
12.02.2011, 23:33
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2011, 23:33

Подпрограммы. Получить удвоенную сумму всех положительных членов последовательности с помощью функции
Даны натуральное число n и действительные a1,…,an, где n=100. Получить удвоенную сумму всех...

Установить, верно ли, что отрицательных членов в последовательности больше, чем положительных?
Помогите пожалуйста с условием. Установить, верно ли, что отрицательных членов в последовательности...

Подсчитать произведение и сумму отрицательных членов последовательности
Подсчитать произведение и сумму отрицательных членов последовательности -10 -7 -4...10, ноль...


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

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

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