Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Двумерный массив n = 5, m = 6. Числовые значения переменных x и y задаются по вводу. Найти первые по возрастанию номеров строк элементы, имеющие минимальные и максимальные значения, напечатать их значения и номера... https://www.cyberforum.ru/ pascalabc/ thread1321510.html Pascal ABC Найти количество нечетных положительных элементов в каждой строке матрицы
Помогите довести программу до ума :) Суть : в двух заданных матрицах произвольного размера найти количество нечетных положительных элементов в каждой строке. uses crt; type matr=array of real;...
Pascal ABC Задача "Найти номер треугольника с наибольшей площадью" https://www.cyberforum.ru/ pascalabc/ thread1321377.html
Очень нужна помощь с данной задачкой,желательно с комментариями. Даны одномерные массивы A и B из n элементов каждый. Определить номер треугольника со сторонами длиной (Ai, Bi,(Ai+Bi)/2),...
Pascal ABC Матрица А имеет седловую точку А [i:j], если А [i:j] является минимальным элементом Матрица А имеет седловую точку А , если А является минимальным элементом в i -й строке и максимальным в j -м столбце. Для заданной целой матрицы размером 10 x 12 напечатать индексы всех ее седловых... https://www.cyberforum.ru/ pascalabc/ thread1321356.html
Переписать в другой файл все строки с заменой в них запятой на точку Pascal ABC
Требуется помощь в двух задачах, пишу сюда, ибо сам зашел в тупик. Желательно код с комментариями, дабы понять все: 2. Имеется текстовый файл. Переписать в другой файл все строки с заменой в них...
Pascal ABC Вывести на экран те строки файла, которые не содержат слово NO Требуется помощь в двух задачах, пишу сюда, ибо сам зашел в тупик. Желательно код с комментариями, дабы понять все: 1. Вывести на экран те строки файла, которые не содержат слово NO Заранее... https://www.cyberforum.ru/ pascalabc/ thread1321348.html
Pascal ABC Вычислить значение функции https://www.cyberforum.ru/ pascalabc/ thread1321311.html
F=Z^2+0,75Z-0,25 Z =\begin{cases}y^2+2y; & \text{y\leq 0} \\y^2+\sqrt{y}; & \text{0<y<2} \\y+lny; & \text{y\geq 2}\end{cases} y=2x^2+\sqrt{3x} x\epsilon \Delta x=1 Добавлено через 1 час...
Pascal ABC Задача "Подъезд дома"
Здравствуйте! Помогите, пожалуйста, разобраться, что не так с программой. Задача: Определить номер подъезда девятиэтажного дома по указанному номеру квартиры N. Считать, что на каждом этаже...
Pascal ABC Множества Написать программу, которая позволяет пользователю вводить два множества и находит пересечение этих множеств. Помогите написать код который позволит пользователю вводить множества. https://www.cyberforum.ru/ pascalabc/ thread1321198.html Pascal ABC Пишет "Выход за границы диапазона изменения индекса 0.100" https://www.cyberforum.ru/ pascalabc/ thread1321161.html
for y:=0 to a-1 do for x:=0 to b-1 do x22:=x2;Я то сам понял-почему так происходит, но я не могу понять как это исправить, если кто может-можете написать сразу решение всей задачи. Недавно...
нужно сделать прогу с процедурами, (определить номер строки и столбца, имеющие минимальную сумму элементов) Pascal ABC
вот есть программа, но она ищет только минимальный элемент строки, а мне надо еще и столбца(( если не сложно, плиз лабу сдать надо срочно. З.Ы У меня есть то что надо, только сделано без помощи...
Pascal ABC Сделать ввод текстовым файлом Input.txt, а вывод output.txt https://www.cyberforum.ru/ pascalabc/ thread1320901.html
var a : longint; s : string; i, n : integer; begin readln(a); str(a, s); n := length(s); for i := 1 to n - 1 do if s < s then begin
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
06.12.2014, 18:03 0

Все элементы массива с четными номерами, предшествующие первому max, умножить на значение максимума - Pascal ABC - Ответ 6949980

06.12.2014, 18:03. Показов 2627. Ответов 3
Метки (Все метки)

Ответ

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
program p;// исправлено
 
var
  a: array [1..1000] of integer;
  i, imax, n: integer;
 
begin
  write('введиет количество элементов массива n=');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(20) - 10;
    write(a[i], ' | ');
  end;
  imax := 1; // ищем индекс первого максимального элемента
  for i := 1 to n do
    if (a[i] > a[imax]) then
      imax := i;
  writeln;
  writeln('Индекс первого максимального imax=', imax);
  for i := 2 to imax do
    if (i mod 2 = 0 ) then
      a[i] := a[i] * a[imax];
  // выводим весь массив
  writeln('Преобразованный массив:');
  for i:=1 to n do write(a[i],' | ');
end.
Добавлено через 1 минуту
подправил

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

Все члены данной последовательности с четными номерами, предшествующие первому по порядку члену, домножить на max
Приветствую. Прошу помочь с решением данного задания. Заранее благодарен. Даны целые числа...

Массивы: элементы массива с четными номерами, предшествующие первому максимальному элементу, умножить...
Дан массив целых чисел размерности n. Все элементы массива с четными номерами, предшествующие...

Массив: Все элементы массива с четными номерами умножить на значение max.
Даны натуральное число n, , действительные числа a1,...,an. Все элементы массива с четными...

Все элементы массива с чётными номерами до первого max элемента массива умножить на заданное значение
Составить алгоритм и программу ! Дано натуральное число n и массив действительных чисел a . Все...

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

Все члены массива с четными номерами, предшествующие первому наибольшему, домножить на значение этого элемента
Дан массив целых чисел А(n). Все члены массива с четными номерами, предшествующие первому...

Все элементы этого массива, предшествующие первому по порядку элементу со значением max(a1, ...,a10), умножить на этот максимальный элемент
Дан одномерный массив из а элементов. Все элементы этого массива, предшествующие первому по порядку...

Все элементы с четными индексами, предшествующие первому экстремальному в массиве, умножить на 2
Ввести одномерный массив вещественных чисел A(N). Все элементы с четными индексами, предшествующие...

Массив: Все элементы с четными номерами перед первым максимальным элементом массива умножить на это значение.
Дано натуральное число n и массив вещественных чисел a . Все элементы массива с четными номерами,...

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