Посчитайте количество положительных элементов заданного массива А[10].

@Spawnn · Регистрация: 09.01.2010

Author24 — интернет-сервис помощи студентам

@PlayHard · 01.04.2010, 23:58

Сообщение от Spawnn

Посчитайте количество положительных элементов заданного массива А[10].

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program pr1;
var a:array[1..10] of integer;
i,n,max:integer;
begin
writeln ('введите кол-во элементов n');
readln (n);
for i:=1 to n do
begin
max:=a[1];
if a[i]>max then
max:=a[i];
end;
writeln ('максимальный элемент max=',max);
end.

проггу писал на лету так что не будь так строг

@Kizer · 02.04.2010, 00:04

PlayHard, не правильный код...
так лучше:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program pr1;
var a:array[1..10] of integer;
i,n,max:integer;
begin
writeln ('введите кол-во элементов n');
readln (n);
for i:=1 to n do
 readln(a[i]);
max:=a[1];
for i:=2 to n do
begin
if a[i]>max then
max:=a[i];
end;
writeln ('максимальный элемент max=',max);
end.

@Puporev · 02.04.2010, 07:43

Посчитайте количество положительных элементов заданного массива А[10].

При чем здесь max, который вы так старательно ищете?

Pascal
1
2
3
k:=0;
for i:=1 to 10 do
if a[i]>0 then k:=k+1;

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

@Spawnn 2 / 2 / 0 Регистрация: 09.01.2010 Сообщений: 43

	Посчитайте количество положительных элементов заданного массива А[10]. 01.04.2010, 23:50. Показов 709. Ответов 3 Метки нет (Все метки) Посчитайте количество положительных элементов заданного массива А[10]. 0

Опции темы