Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal С клавиатуры вводить символы, пока не будет введен символ «z» или «Z» https://www.cyberforum.ru/ turbo-pascal/ thread661913.html может еще поможете девушке? 3)С клавиатуры вводить символы, пока не будет введен символ «z» или «Z» Заранее спасибо	Turbo Pascal Списки: Выяснить, имеются ли среди чисел a1, ., an совпадающие Даны натуральное число n, целые числа a1, ..., an. Выяснить имеются ли среди чисел a1, ..., an совпадающие. и мне посоветовали использовать вот эти строки Res := False; N1 := 1; repeat for N2 := N1 + 1 to N do Res := A = A; Inc(N1); until Res or N1 = N;
Turbo Pascal Вычислить и вывести на экран в виде таблицы значения функции https://www.cyberforum.ru/ turbo-pascal/ thread661845.html С использованием оператора repeat until вычислить и вывести на экран в виде таблицы (таблицу снабдить заголовком и шапкой) значения функции F на интервале от Xнач. до Xкон. с шагом dX. f={a-x/(10+b) при x<0 и b неравно 0 f={(x-a)/(x-c) при x>0 и b=0 f={3x+2/c в остальных случаях, где a, b, c действительные числа. Значения a, b, c, Xнач., Xкон., dX. Ввести...	Turbo Pascal Найдите сумму н-членов ряда Фибоначчи Найдите сумму n-членов ряда Фибоначчи , используя также только две переменные для нахождения членов ряда и суммы. https://www.cyberforum.ru/ turbo-pascal/ thread661760.html
Turbo Pascal Через сколько секунд часовая и минутная стрелки совместятся Время, которое показывают часы задано в часах, минутах и секундах. Определите, через сколько секунд часовая и минутная стрелки совместятся.	Turbo Pascal Нужно изменить переменную а на f и что бы ее значение задавалось мной. Нужно изменить переменную а на f и что бы ее значение задавалось мной. program p99; var a,b,c,t,q:real; procedure Lac (r:real; var l,s:real); const Pi=3.14159; begin l:=2Pir; s:=Pi*sqr(r); end; https://www.cyberforum.ru/ turbo-pascal/ thread661626.html
Turbo Pascal С клавиатуры вводятся 2 числа, выяснить является ли их разность положительным числом https://www.cyberforum.ru/ turbo-pascal/ thread661619.html С клавиатуры вводятся 2 числа, выяснить является ли их разность положительным числом	Найти произведение элементов массива, расположенных между первым и вторым нулевыми элементами Turbo Pascal 2. Найдите произведение элементов массива, расположенных между первым и вторым нулевыми элементами.
Turbo Pascal Вычислить сумму нечетных элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread661471.html 1. Вычислите сумму нечетных элементов массива.	Turbo Pascal Удалить все элементы, первая цифра которых чётная https://www.cyberforum.ru/ turbo-pascal/ thread661467.html дан массив целых чисел из 20 элементов с числами с промежутка удалить все элементы первая цифра которых чётная
Turbo Pascal Вычислить произведение ряда для натурального n Вычислить для натурального n Y=\prod_{k=1}^{n}\left(1+\frac{1}{{k}^{n}} \right)	Turbo Pascal Перенести первые k элементов массива в конец 2.Дан массив целых чисел из 20 элементов заполненный из промежутка Перенести первые k элементов в конец то есть : a, a, ........., a, a,a,.....a https://www.cyberforum.ru/ turbo-pascal/ thread661434.html

Daemon025

382 / 330 / 159

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

Сообщений: 894

16.01.2011, 17:52

В массиве заменить максимальный элемент нулем - Turbo Pascal - Ответ 1292430

16.01.2011, 17:52. Показов 1502. Ответов 1

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

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

Решение

Pascal

//В массиве { x1, x2 ,..., xn} заменить максимальный элемент нулем.
program pervaja;
    const n = 20;
    var A:array[1..n] of integer;
        i, sum, max, maxNr:integer;
begin
  Randomize;
  max:=-32567;
  For i:= 1 to n do
  Begin
    A[i]:=random(20)-10;
    Write(A[i]:3, ' ');
    if A[i] > max then
    Begin
        max:=A[i];
        maxNr:=i;
    End;
  End;
  A[maxNr]:=0;
  For i:=1 to n do Write(A[i]:3, ' ');
  Readln;
end.

Вернуться к обсуждению:
В массиве заменить максимальный элемент нулем Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

16.01.2011, 17:52

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

В заданном одномерном массиве заменить максимальный элемент нулём
В заданном одном. массиве заменить максимальный элемент нулем))

Найти максимальный элемент в массиве и заменить его нулем
Добрый вечер всем! Помогите пожалуйста разобраться, что делает каждое действие в программе: 1....

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

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

	16.01.2011, 17:52

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

16.01.2011, 17:52

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

Заменить максимальный элемент каждого столбца матрицы нулем
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный...

Заменить максимальный элемент каждой строки матрицы нулем
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный...

Заменить максимальный по модулю отрицательный элемент массива нулем
дан массив целых чисел C, состоящий из 30 элементов. заполнить его с клавиатуры. -заменить...

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

Наверх