Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
olegbesan
2 / 2 / 1
Регистрация: 08.06.2012
Сообщений: 44
1

Найти сумму положительных элементов линейного массива целых чисел

11.06.2012, 15:34. Просмотров 3448. Ответов 1
Метки нет (Все метки)

1.Задан линейный массив, состоящий из n элементов. Необходимо циклически сдвинуть массив вправо, т. е. последний элемент должен стать первым, а остальные переместиться на одну позицию вправо

2.Найти сумму положительных элементов линейного массива целых чисел. Размерность массива – 10. Заполнение массива осуществить случайными числами
3.Задан двухмерный массив, состоящий из n строк и n столбцов. Заменить в этом массиве все отрицательные элементы нулями
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2012, 15:34
Ответы с готовыми решениями:

Найти сумму положительных элементов массива целых чисел, которые кратны 7
Найти сумму положительных элементов массива целых чисел, которые кратны 7....

Дан массив целых чисел A. Найти суммы положительных и отрицательных элементов массива
Дан массив целых чисел A. Найти суммы положительных и отрицательных элементов...

Найти сумму элементов массива целых чисел
найти сумму элементов массива целых чисел, которые делятся на 5 и на 8...

Найти сумму четных элементов массива целых чисел. Размерность массива - 20
Найти сумму четных числе элементов массива целых чисел. Размерность массива -...

Найти сумму элементов массива, состоящего из 12 целых чисел.
7. Найти сумму элементов массива, состоящего из 12 целых чисел.

1
Das Gespenst
Лучи добра
172 / 170 / 191
Регистрация: 08.06.2012
Сообщений: 292
11.06.2012, 16:57 2
Лучший ответ Сообщение было отмечено olegbesan как решение

Решение

Долго же я... Держи первую! И для каждого задания делай отдельную тему!
Pascal
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
program z;
var i,n,r,k,j:integer;
a:array [1..100] of integer;
begin
     write('Введите кол-во элементов вектора: ');
     readln(n);
     write('Вектор: ');
     randomize;
     for i:=1 to n do
         begin
              a[i]:=i;
              write(a[i],' ');
         end;
     writeln;
     write('На сколько позиций вправо сместить вектор: ');
     readln(k);
     for j:=1 to k do
         begin
              r:=a[n];
              for i:=n downto 2 do
                  a[i]:=a[i-1];
              a[1]:=r;
         end;
     write('Смещенный вектор:');
     for i:=1 to n do
         write(a[i],' ');
end.
Добавлено через 49 секунд
Ой, randomize удалишь, а то я забыл...

Добавлено через 3 минуты
Вторую лови!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program z;
var i,s:integer;
a:array [1..10] of integer;
begin
     write('Случайный вектор: ');
     randomize;
     for i:=1 to 10 do
         begin
              a[i]:=trunc((20-(-20))*random+(-20));
              write(a[i],' ');
         end;
     writeln;
     for i:=1 to 10 do
         if a[i]>0
            then
                s:=s+a[i];
     write('Сумма положительных элементов вектора: ',s);
end.
Добавлено через 5 минут
B третья:
Pascal
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
program z;
var i,j,n:integer;
a:array [1..100,1..100] of integer;
begin
     writeln('Введите размерность матрицы');
     readln(n);
     writeln('Случайная матрица');
     randomize;
     for i:=1 to n do
         begin
              for j:=1 to n do
                  begin
                       a[i,j]:=trunc((20-(-20))*random+(-20));
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
     for i:=1 to n do
         for j:=1 to n do
             if a[i,j]<0
                then
                    a[i,j]:=0;
     writeln('Обработанная матрица');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(a[i,j],' ');
              writeln;
         end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2012, 16:57

Найти сумму элементов одномерного массива целых чисел
Найти сумму элементов одномерного массива целых чисел А(20). Массив заполнить...

Найти сумму крупнейших элементов строк массива целых чисел
2. Найти сумму крупнейших элементов строк массива целых чисел п.с. спасибо...

Массив: Найти сумму элементов массива целых чисел, которые делятся на 5 и на 8 одновременно.
Найти сумму элементов массива целых чисел, которые делятся на 5 и на 8...


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

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

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