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

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

12.02.2011, 18:40. Просмотров 1300. Ответов 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)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2011, 18:40
Ответы с готовыми решениями:

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

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

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

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

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
2855 / 1984 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
12.02.2011, 20:21 3
Доминишинг

Не по теме:

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


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

Не по теме:

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

0
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
1 / 1 / 1
Регистрация: 12.02.2011
Сообщений: 22
12.02.2011, 23:33  [ТС] 6
Спасибо большое, Вы мне очень помогли, в решении задач. Я Вам очень благодарен.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.02.2011, 23:33

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

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

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

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

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


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

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

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