Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Программирование задачи обработки вектора на языке Pascal ABC https://www.cyberforum.ru/ pascalabc/ thread1098643.html
В вещественом векторе Z(n) подсчитать сумму элементов, расположеных на четных местах. program lab_4; var z: array of real; min, s, p: real; i, k, n, nom: byte; { i – параметр цикла, n – фактическое число элементов в векторе } begin write(′Введите число элементов: ′); readln(n); s:=0; p:=1; k:=0; write(′Введите элементы через пробел: ′); 		Составить программу по блок схеме Pascal ABC
Помогите пожалуйста составить программу по блок схеме, буду очень признателен
Pascal ABC Вычислить P=S1/S2, где S1-сумма членов геометрической прогрессии https://www.cyberforum.ru/ pascalabc/ thread1098311.html
Вычислить P=S1/S2, где S1-сумма членов геометрической прогрессии с 15-го по 12-й; S2-сумма членов прогрессии с 15-го по 20-й. Первый член ai=2,3;знаменатель q=1,5 Одно с последовательным файлом, другое с модулем- две программы. 		Pascal ABC Вычислить суммы по строкам и произведение по столбцам матрицы Дан произвольный двухмерный числовой массив. Разработать проект позволяющий: а) заполнять массив данными с сохранением в файле; б) вычислять суммы по строкам и произведения по столбцам; в) выдать результаты на экран. https://www.cyberforum.ru/ pascalabc/ thread1098294.html
Pascal ABC Определить есть ли в файле повторяющиеся числа, и если да, то выдать их
Дан файл содержащий действительные числа. Определить есть ли в нём повторяющиеся числа, и если да то выдать их. 		Pascal ABC Найти прямоугольник с большей площадью https://www.cyberforum.ru/ pascalabc/ thread1098239.html
Даны длины четырех отрезков - по две стороны первого и второго прямоугольника соответственно. Найти прямоугольник с большей площадью. Входные данные: Во входном потоке заданы четыре натуральных числа - длины четырех отрезков. Значение всех исходных величин не превышает 30000. Выходные данные: В выходной поток вывести '1' если площадь первого прямоугольника больше и '2' в противном случае. ...
Pascal ABC Найти минимальный и максимальный элементы из элементов матрицы с четными положительными значениями https://www.cyberforum.ru/ pascalabc/ thread1098143.html
Напишите программу,которая находит минимальный и максимальный элементы из элементов матрицы с четными положительными значениями и их индексы.Учтите,что таких элементов в матрице может и не быть 		Вывести на экран строку матрицы, сумма значений элементов которой наибольшая Pascal ABC
Напишите программу в паскале,которая выводит на экран строку матрицы,сумма значений элементов которой наибольшая
Pascal ABC Добавить в программу функцию, которая считает количество вхождений заданной буквы в к-ый элемент массива Снова здравствуйте. На сей раз мне нужно добавить в программу функцию, которая считает количество вхождений заданной буквы в к-ый элемент массива A(n) , то есть в к-ую строчку. Я что-то сделал, но опять неверно. program module; uses crt; type mas=array of string; procedure perepis(var f:text;ch:char;var a:mas;var n:integer); var s:string; begin n:=0; while not eof(f) do begin https://www.cyberforum.ru/ pascalabc/ thread1098128.html Pascal ABC Ввести число от 0 до 1000. Определить количество цифр в числе https://www.cyberforum.ru/ pascalabc/ thread1098117.html
Ввести число от 0 до 1000. Определить количество цифр в числе =================================================== Ребята помогите решить,нужно сделать через case of
Pascal ABC Правильно ли решена задача (Сколько часов проработала вся бригада)
В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада? s:=0; for i:=1 to N do s:=s+m+(i-1)/6; s:=0; i:=1; while i<=N do begin s:=s+m+(i-1)/6; Inc(i); end; s:=0; i:=1; repeat s:=s+m+(i-1)/6; Inc(i); until i>N; 		Pascal ABC Вывести номера квадратов, центр которой расположен на расстоянии, большем D, от заданной точки https://www.cyberforum.ru/ pascalabc/ thread1098047.html
Дано множество квадратов. Вывести номера квадратов, центр которой расположен на расстоянии, большем D, от точки (15, 15), а площадь - 500.
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
17.02.2014, 14:02 0

Последний максимальный элемент массива заменить нулем - Pascal ABC - Ответ 5793143

17.02.2014, 14:02. Показов 1338. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

1.
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

const nmax=100;
var a:array[1..nmax] of integer;
    n,i,imx:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)+1;
  write(a[i]:4);
  if i=1 then imx:=1
  else if a[i]>a[imx] then imx:=i
 end;
writeln;
writeln('Последний максимальный элемент=',a[imx],' его номер=',imx);
writeln('Замена последнего максимального нулем');
for i:=1 to n do
 begin
  if i=imx then a[i]:=0;
  write(a[i]:4);
 end;
end.


Вернуться к обсуждению:
Последний максимальный элемент массива заменить нулем Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 17.02.2014, 14:02
Готовые ответы и решения:

Заменить максимальный по модулю отрицательный элемент массива нулём
заменить максимальный по модулю отрицательный элемент массива нулём

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

Определить максимальный элемент массива В и его порядковый номер, замените максимальный элемент массива нулём
Массив: В(К); Условия и ограничения: в i&gt;0, N&lt;=30 Помогите пожалуйста

В каждой строке матрицы заменить последний отрицательный элемент нулем
В каждой строке матрицы заменить последний отрицательный элемент нулем. Вот начало программы uses...

2
17.02.2014, 14:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 17.02.2014, 14:02
Помогаю со студенческими работами здесь

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

Заменить первый отрицательный элемент массива нулем
Дан массив целых чисел, состоящий из 10 элементов. Запол¬нить его с клавиатуры. Заменить первый...

Заменить последний положительный элемент массива на второй элемент массива
Я вас очень сильно прошу решите пожалуйста эту задачу я умоляю вас помоготе мне с информатикой

Заменить последний положительный элемент на второй элемент массива
Дан масиив из n целых чисел. Заменить последний положительный элемент на второй элемент массива.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru