Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal арифметические действия над двоичными, восьмеричными или шестнадцатеричными числами. https://www.cyberforum.ru/ turbo-pascal/ thread295660.html Вот условие: Напишите программу, позволяющую выполнять арифметические действия над двоичными, восьмеричными или шестнадцатеричными числами. Систему счисления выбирает пользователь. ПОМОГИТЕ...	Turbo Pascal Динамические структуры данных Помогите решить, пожалуйста. Задача: В двусвязных списках каждый узел содержит два указателя – на предыдущий и последующий узлы. Модифицируйте программу Pr_10_1 получив программу для работы с... аууу народ https://www.cyberforum.ru/ turbo-pascal/ thread295648.html
Turbo Pascal Строковый калькулятор Привет.. Считываю строку, например, "12+13-5*3+20/3" Каким образом мне мне вычислить данное выражение?? https://www.cyberforum.ru/ turbo-pascal/ thread295779.html	Turbo Pascal Ввести последовательность не нулевых чисел https://www.cyberforum.ru/ turbo-pascal/ thread295642.html не мог бы решить еще одну задаче плиз последнию Ввести последовательность не нулевых чисел.Найти произведение элементов последовательности стоящих на четных местах. ок. щас) если мы вводим 0 то выдавать ошибку должно или будем надеяться что никто 0 не будет вводить? Добавлено через 10 минут uses crt; label 1; var i,p,n:integer; a:array of integer;...
Turbo Pascal Мировое окно и порт просмотр Есть небольшой рисунок, его нужно обрезать, увеличить и т.д. с помощью мирового окна и вывести на экран порт просмотр. Помогите написать хоть небольшой код, чтоб понять что это такое и как с ним... Помогите https://www.cyberforum.ru/ turbo-pascal/ thread295655.html	Turbo Pascal блок схема составьте пожалуйста блок схему к программе uses crt; var n,i,k:integer; a:array of integer; Begin clrscr; k:=0; write('N: ') ; readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread295652.html
Введите последовательность из любых чисел R. Найдите произведение всех положительных чисел. Turbo Pascal Помогите решить задачку в паскале кто-нибудь. Введите последовательность из любых чисел R. Найдите произведение всех положительных чисел.	Turbo Pascal Среднеарифметическое значение положительных элементов каждого столбца https://www.cyberforum.ru/ turbo-pascal/ thread295663.html Дана матрица размерностью m*n. Составить блок – схему алгоритма для определения среднеарифметического значения положительных элементов каждого столбца. Добавлено через 17 минут Хотя бы текст... sr:=s/k; вынеси за end;
Turbo Pascal Найти сумму трех чисел решить указанное задание (реализуется через оператор case) использовав собственные процедуры. сумма 3-х чисел или сумма 5-чисел. неужели никто не может этого сделать??? uses crt; var a,b,c,d,e:integer; i:char; procedure three(a,b,c:integer); begin writeln('wvedite 3 chisla '); readln(a,b,c); c:=a+b+c; https://www.cyberforum.ru/ turbo-pascal/ thread295681.html	устраните ошибку Turbo Pascal programe Zavdannya_4 Var x,b,k:real; function tg(w:real):real; begin tg:=sin(w)/cos(w); end; function F(x,k,z:real):real; begin F:=f(x,k,z)=z+xx-yy; end; programe нет такого зарезервированного слова в паскале. F:=f(x,k,z)=z+xx-yy; как так? Z:=tg(f(x,k,b))+5f(k,bb,x)-ff(b+0.1k-1,xx); что за Z? 0.1k - это что такое?
Turbo Pascal как на паскале сделать "перейти к следуючему" "перейти к предыдучему" https://www.cyberforum.ru/ turbo-pascal/ thread295758.html Написать проогррамму в которой описывается массив записей ,хранящий следующую информацию :ФИО сотрудника.подразделение ,оклад .Программа долллжна выполнять следующ действия: ввод данных просмотр... procedure list; var i,k:integer; begin if count >0 then begin writeln ('n fam name podrazd oklad'); i := 1; while i =< count do begin clrscr;	Turbo Pascal Создать список студентов, имеющих задолженность по всем предметам Создать файл, содержащий сведения об итогах зимней сессии студентов 1-го курса. Структура записи: фамилия, номер группы, видмитка1, видмитка2, видмитка3. Написать программу, которая выдает... 1) научитесь наконец называть темы информативно 2) научитесь наконец пользоваться поиском по форуму, подобных задач было много. https://www.cyberforum.ru/ turbo-pascal/ thread295722.html

datrav

1 / 1 / 2

Регистрация: 15.05.2011

Сообщений: 5

15.05.2011, 03:21

Найти наибольший элемент массива и заменить его значением произведением всех элементов - Turbo Pascal - Ответ 1650753

15.05.2011, 03:21. Показов 1599. Ответов 1

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program multi;
var
mas:array[1..30]of integer;
i,max,nmax,mul:integer;
begin
for i:=1 to 30 do
mas[i]:=random(10);
 
nmax:=1;max:=mas[1];mul:=1;
for i:=1 to 30 do
 if mas[i]>nmax then begin max:=mas[i];
                           nmax:=i;
                     end;
for i:=1 to nmax do mul:=mul*mas[i];
 
for i:=1 to 30 do
write(mas[i]);
writeln;
writeln(mul);
readln;
 
end.

Попробуй.

Вернуться к обсуждению:
Найти наибольший элемент массива и заменить его значением произведением всех элементов Turbo Pascal

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

15.05.2011, 03:21

Готовые ответы и решения:

В массиве Y состоящего из 20 элементов найти наибольший элемент и заменить его значением суммы всех элементов
Всем доброго дня суток!!! Не подскажите мне решение следующих задач: 1. В массиве Y состоящего из 20 элементов найти наибольший элемент...

Для массива найти наибольший элемент. Заменить его значением суммы элементов предшествующих ему
Для массива Х(N) найти наибольший элемент . Заменить его значением суммы элементов предсутствующем ему

Для массива Y(100) найти наибольший элемент и заменить его значением суммы предшествующих ему элементов
Для массива Y(100) найти наибольший элемент и заменить его значением суммы пpедшествующих ему элементов.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

15.05.2011, 03:21

Помогаю со студенческими работами здесь

Найти наибольший элемент; заменить его значением суммы предшествующих элементов
Для массива (х1, х2, …х100) найти: наибольший элемент; заменить его значением суммы элементов, предшествующих ему

Двумерный массив. Найти наибольший элемент, заменить его значением суммы элементов
Здрасте помогите решить плиз)) Дан массив А (N). Найти наибольший элемент, заменить его значением суммы элементов. Вывести исходный и...

В массиве найти наибольший элемент и заменить его значением суммы предшествующих ему элементов
Для массива X(100) найти наибольший элемент; заменить его значением суммы элементов, предшествующих ему.

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

Массив: Найти минимальный элемент массива и его номер, заменить его произведением элементов, стоящих перед ним.
Массив Х вводят с клавиатуры. Найти минимальный элемент массива X и его номер. Заменить его произведением элементов, стоящих в массиве...

Новые блоги и статьи Все статьи Все блоги /
Циклы for в Python py-thonny 17.03.2025 Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .	Предсказание ветвлений - путь к высокопроизводительному C++ NullReferenced 17.03.2025 В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .	Паттерн CQRS в C# UnmanagedCoder 17.03.2025 Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .	Паттерн Цепочка ответственности в C# UnmanagedCoder 17.03.2025 Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .	Создаем микросервисы с NestJS, TCP и Typescript run.dev 17.03.2025 NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
Гексагональная архитектура со Spring Boot Javaican 17.03.2025 Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .	Позиционирование Kafka Consumer и Seek-операции Javaican 17.03.2025 Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .	Python NumPy: Лучшие практики и примеры py-thonny 17.03.2025 NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .	Java Micronaut в Docker: контейнеризация с Maven и Jib Javaican 16.03.2025 Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .	Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2 Javaican 16.03.2025 Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .

Наверх