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

Если сумма элементов массива отрицательная, изменить знак каждого элемента, если положительная, удвоить каждый

05.06.2014, 10:37. Просмотров 1267. Ответов 1
Метки нет (Все метки)

Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10]. Найти сумму элементов. И если она отрицательная, заменить все элементы массива на противоположные по знаку, если положительная, удвоить каждый элемент массива. Массив повторно вывести на экран.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2014, 10:37
Ответы с готовыми решениями:

Если сумма сгенерированных чисел – положительная, то числа выводятся в левый ListBox. Если отрицательная – в правый
Разработать Windows Forms приложение, содержащее 2 объекта ListBox и кнопку. По нажатию на кнопку...

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

Дано три числа, если сумма их положительная, изменить второе число на противоположное
Дано три числа, если сумма их положительная, изменить второе число на противоположное. Код...

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

1
Модератор
Эксперт Pascal/Delphi
6263 / 4221 / 4610
Регистрация: 05.06.2014
Сообщений: 20,797
05.06.2014, 16:35 2
Лучший ответ Сообщение было отмечено driveme как решение

Решение

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
const
  n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,sum:integer;
begin
  randomize; 
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(21)-10;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  sum:=0;
  for i:=1 to n do
    for j:=1 to n do
      sum:=sum+a[i,j];
  writeln('Сумма элементов массива = ',sum);
  if sum<0 then
    begin
      for i:=1 to n do
        for j:=1 to n do
          a[i,j]:=-1*a[i,j];
    end
  else
   if sum>0 then
     begin
      for i:=1 to n do
        for j:=1 to n do
          a[i,j]:=2*a[i,j];
     end;
  writeln('Преобразованный массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
          write(a[i,j]:4);
      writeln;
    end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2014, 16:35

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

Если индекс элемента массива четный, то элемент возвести в квадрат, если нечетный – удвоить
Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке . Сформировать...

Если сумма всех элементов матрицы больше 0, то у первого элемента этой матрицы заменит знак на противоположный...
Помогите пожалуйста! -Даны три матрицы А(3,5), В(6,4), С(7,2). Если сумма всех элементов...

Удвоить значения положительных элементов массива A и изменить знак у отрицательных элементов
Удвоить значения положительных элементов массива A и изменить знак у отрицательных элементов....

Массив: Присвоить S значение 1, если сумма квадратов элемента массива X больше суммы квадратов элементов массива Y...
Заданы два массива X (5) Y (5) переменной s присвоить значение 1, если сумма квадратов элемента...


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

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

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