Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 26.09.2011
Сообщений: 17
1

Подсчитать общее число неотрицательных элементов в массиве

21.11.2011, 20:27. Показов 1647. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задан двумерный массив А из 8-и строк и 3-х столбцов. Составить программу, которая подсчитывает общее число неотрицательных элементов в массиве. Затем организовать формирование нового массива В, в котором значения элементов исходного массива заменить на противоположные по знаку.

т.е. начинать вот так?или нет?
Pascal Скопировано
1
2
3
4
5
6
7
8
9
10
11
program p4;
const k=8; n=3;
var c:array [1..k,1..n] of integer;
i,j,s, p:integer;
begin
for i:=1 to k do
for j:=1 to n do
begin
write('Vvedite  c[',i,',',j,']=');
readln(c[i,j]);
end;
и как продолжить и закончить
и если не трудно объяснить ее в конце
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.11.2011, 20:27
Ответы с готовыми решениями:

Подсчитать общее число неотрицательных элементов в массиве
Задан двумерный массив А из 8-и строк и 3-х столбцов. Составить программу, которая подсчитывает общее число неотрицательных элементов в...

Подсчитать произведение неотрицательных элементов в двухмерном массиве
подсчитать произведение неотрицательных элементов в двухмерном массиве 6 × 3;

Множества: в массиве подсчитать общее число цифр и знаков "+" и "–"
Пусть дан массив типа char (состоящий из произвольных символов). Подсчитать в нем общее число цифр и знаков "+" и "–".

2
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
21.11.2011, 20:39 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
26
27
28
29
30
31
32
program p4;
uses crt;
const k=8; n=3;
var c,b:array [1..k,1..n] of integer;
    i,j,s:integer;                        //с - для счета неотрицательных
begin
s:=0;                                      //изначально количество неотрицательных равно нулю
for i:=1 to k do                           //задаю цикл для заполнения строк и столбцов
    for j:=1 to n do
        begin
        write('Vvedite c[',i,',',j,']=');
        readln(c[i,j]);                     //считываю в память элемент в строке i в столбце j
        if c[i,j]>=0 then s:=s+1;           //если элемент массива больше или равен нулю, увеличиваю количество неотрицательных на 1
        b[i,j]:=c[i,j]*(-1);                //сразу же заполняю матрицу б противоположными по знаку элементами (для чего умножаю элемент на -1)
        end;
writeln ('Neotruzatelnyh ',s);              //вывожу сообщение о количестве нетрицательных
writeln ('Massiv C');
for i:=1 to k do                            //задаю цикл для вывода матрицы с
    begin
    for j:=1 to n do
        write(c[i,j]:4);
    writeln;
    end;
writeln ('Massiv B');                        //задаю цикл для вывода матрицы и
for i:=1 to k do
    begin
    for j:=1 to n do
        write(b[i,j]:4);
    writeln;
    end;
readln;
end.
1
0 / 0 / 0
Регистрация: 26.09.2011
Сообщений: 17
21.11.2011, 20:55  [ТС] 3
спасибо
вроде бы поняла
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.11.2011, 20:55
Помогаю со студенческими работами здесь

Подсчитать наибольшее число идущих в массиве подряд одинаковых элементов
4) Имя входного файла: z571.in Имя выходного файла: z571.out Дана целочисленная таблица A. Подсчитайте наибольшее число идущих в ней...

Определить сумму неотрицательных элементов в одномерном числовом массиве
паскаль решение

Подсчитать общее число вхождений символов +, -, *, / в строке
2)Дана строка символов S. Подсчитать общее число вхождений символов +, -, *, / в строке. Использовать процедуры и функции для работы со...

Подсчитать общее число инверсий в строках (Где ошибка?)
Не могу найти ошибку. Задача:Назовём инверсией в строке ситуацию Аij>Ai,j+1(в отличие от ситуации Aij<Ai,j+1). Получить массив...

Напечатать фамилии, имена и подсчитать общее число жителей родившихся в 1990 г
Даны результаты, ререписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Осваиваем Kubernetes: Подробная шпаргалка
Mr. Docker 15.03.2025
Kubernetes — это открытая платформа для автоматизации развертывания, масштабирования и управления контейнеризированными приложениями. Он был создан для решения проблем, с которыми сталкиваются. . .
Лучшие PHP REST API фреймворки
Jason-Webb 15.03.2025
Современные PHP REST API фреймворки предлагают большой набор функциональности: от автоматической валидации данных и управления маршрутизацией до генерации документации и интеграции с различными. . .
Многопоточность в Java с Project Loom: виртуальные или обычные потоки
Javaican 15.03.2025
Многопоточность всегда была одноим из основных элементов в разработке современного программного обеспечения. Она позволяет приложениям обрабатывать несколько задач одновременно, что критично для. . .
Что нового в Swift 6 и особенности миграции
mobDevWorks 15.03.2025
Swift 6 — это новый крупный релиз языка программирования от Apple, анонсированный на WWDC 2024. Если вы следили за эволюцией Swift, то наверняка заметили, что многие значимые возможности, которые. . .
Вопросы на собеседовании по Android
mobDevWorks 14.03.2025
По данным статистики, Android занимает более 70% мирового рынка мобильных операционных систем, что делает платформу привлекательной как для начинающих разработчиков, так и для опытных профессионалов. . . .
Лучшие игровые движки для Python
py-thonny 14.03.2025
Python обеспечивает разработчиков игр мощными движками и фреймворками, которые позволяют воплотить практически любую идею — от простой аркады до визуального романа с разветвленным сюжетом. Главное. . .
Бессерверный JavaScript: Разработка масштабируемых API с AWS Lambda
run.dev 14.03.2025
Но что такое бессерверные вычисления на самом деле? По сути, это модель облачных вычислений, где разработчик фокусируется исключительно на создании бизнес-логики, не тратя время на настройку. . .
Безопасность кода в C++26: Менеджеры ресурсов и висячие ссылки
NullReferenced 14.03.2025
C++ всегда был языком, предоставляющим разработчикам большие возможности и гибкость, но вместе с тем требующим ответственности. Одной из самых коварных проблем даже для опытных программистов остаются. . .
smart-agent proper interface settings (2025)
jigi33 14.03.2025
Smart-agent proper interface settings (mart 2025). (see screenshots to look at "Etalon" ARM)
Продвинутые настройки JVM
Javaican 14.03.2025
Стандартные параметры запуска JVM хороши для повседневной разработки, но совершенно недостаточны для высоконагруженных систем. Представьте, что вы запускаете финансовую платформу, обрабатывающую. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер