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

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

03.04.2014, 18:34. Просмотров 891. Ответов 1
Метки нет (Все метки)

Две задачи:

5. Заполните двумерный массив, замените отрицательные элементы нулями.

7. Используя процедуру вычисления степени числа, вычислить значение выражения: y=a1*x4+a2*x3+a3*x2+a4*x+a5 (вероятно числа это степени, но я всё же написал я именно так как написано в распечатке с заданиями).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2014, 18:34
Ответы с готовыми решениями:

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

Замените все отрицательные элементы массива нулями
6. Создайте одномерный массив, в который пользователь введет с клавиатуры...

Двумерный массив. Заменить все отрицательные числа нулями. Подсчитать сумму положительных
1) Двумерный массив 3 на 3 заполнить вводом чисел с клавиатуры. Вывести...

В заданном массиве Х(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте
Решите пожалуйста! В заданном массиве Х(N) замените нулями все отрицательные...

Ввести с клавиатуры непустой массив чисел и заменить нулями все отрицательные элементы
Здравствуйте! Нужна помощь по написанию 2-х программ в ABC паскале. 1.Напишите...

1
Drovoseck
54 / 54 / 29
Регистрация: 01.01.2014
Сообщений: 214
03.04.2014, 21:42 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses
 crt;
 
 var
 A : array [1..5,1..5] of Integer;
 i,j,n : integer;
  begin
  
 For i := 1 to 5 do
  for j := 1 to 5 do
   begin
  Randomize;
  n := Random(2);   // èñïîëüçóåì äîïîëГ*èòåëüГ*ГіГѕ ïåðåìåГ*Г*ГіГѕ ГІ.ГЄ. Random(x) Г*ГҐ Г°Г*áîòГ*ГҐГІ Г± îòðèöГ*òåëüГ*ûìè Г·ГЁГ±Г«Г*ìè  (n ìîæåò ïðèГ*ГїГІГј Г§Г*Г*Г·ГҐГ*ГЁГҐ 0 èëè 1 )
   if n=0 then        // åñëè n = 0
  A[i,j] := Random(20) else // ГЁГ*Г*Г·ГҐ
   A[i,j] := Random(20) *(-1);
  end;         {Г‡Г*ïîëГ*ГїГҐГ¬ ГЊГ*Г±Г±ГЁГў ГђГ*Г*äîìГ*ûìè Г·ГЁГ±Г«Г*ìè îò -19 äî 19 }
  
 For i := 1 to 5 do
  for j := 1 to 5 do
 if A[i,j] < 0 then
  A[i,j] := 0;
  
 
 end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2014, 21:42

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

Все отрицательные элементы массива заменить нулями, элементы больше 3 увеличить на 1
Дан массив А={-2;-1;3;0;3;4;5;5;8}. Нужно сформировать новый массив N по...

Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные на главной диагонали и выше нее.
Дана действительная квадратная матрица порядка 12. Замените нулями все ее...


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

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

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