Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
ketr
1 / 1 / 0
Регистрация: 06.10.2015
Сообщений: 44
#1

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

17.12.2015, 08:40. Просмотров 132. Ответов 1
Метки нет (Все метки)

Дана целочисленная матрица порядка n*m. Вычисилить: количество отрицательных элементов и на место положительных элементов записать ноль.
http://www.cyberforum.ru/pascal/thread1929183.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2015, 08:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В двумерном массиве вычисилить количество отрицательных элементов и заменить нулями положительные элементы (Pascal):

Дана матрица в столбцах с минимальным количеством отрицательных элементов все положительные элементы заменить на 0
Дана матрица A в столбцах с минимальным количеством отрицательных элементов все...

Заменить положительные элементы матрицы нулями
Составить программу обработки матрицы размерности NxN. В программе...

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
переведите на паскаль Дан массив R (M, N). Заменить в третьем столбце все...

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы...

В двумерном массиве определить номера строк, содержащих только положительные элементы
№2 В двумерном массиве определить номера строк, содержащих только...

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
17.12.2015, 11:28 #2
Лучший ответ Сообщение было отмечено ketr как решение

Решение

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
var
    ar: Array[Byte, Byte] Of ShortInt;
    i, j, n, m: Byte;
    negCount: Word;
begin
    negCount := 0; Randomize();
    repeat
        Write('Input n (>0): '); ReadLn(n);
    until (n > 0);
    repeat
        Write('Input m (>0): '); ReadLn(m);
    until (m > 0);
    WriteLn('Original array:');
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
            if (ar[i, j] < 0)
            then
                Inc(negCount)
            else
                ar[i, j] := 0;
        end;
        WriteLn;
    end;
    WriteLn('Negative count: ', negCount);
    Write('Modified array:');
    for i := 0 to n - 1 do
    begin
        WriteLn;
        for j := 0 to m - 1 do
            Write(ar[i, j]:4);
    end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2015, 11:28
Привет! Вот еще темы с решениями:

Найти сумму отрицательных элементов в двумерном массиве
Найти сумму отрицательных элементов в двумерном массиве. Использовать...

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

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

Заменить в массиве все отрицательные элементы на положительные
Дан массив T,заменить в нем все отрицательные элементы на положительные. const...


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

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

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