Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 19.11.2018
Сообщений: 15
1

Найти все элементы массива с четными номерами, со значением максимального элемента массива

01.04.2019, 21:06. Просмотров 386. Ответов 1

Дано натуральное число n и массив вещественных чисел a [1..n] Найти все элементы массива с четными номерами, со значением максимального элемента массива
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2019, 21:06
Ответы с готовыми решениями:

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

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

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

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

1
1915 / 641 / 468
Регистрация: 15.01.2019
Сообщений: 1,978
02.04.2019, 02:26 2
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
program MaxOdd;
var
  a: array[1..100] of real; // Переменная в которой хранится массив.
  n: integer;  // Переменная в которой хранится значения максимального количества элементов.
  i: integer;   // Промежуточная переменная, для организации циклов.
  max: real;  // Переменная в которой хранится максимальное значение среди элементов.
begin
writeln('Введите число элементов массива:');
Readln(n);
writeln('Введите значения элементов массива:');
for i:= 1 to n do
   Readln(a[i]);
for i:= 1 to n do
  write(a[i]:5:1);
max:=a[1];
for i:= 2 to n do
  if a[i] > max then
       max:= a[i];
writeln;
for i:= 1 to n do
  if (not odd(i)) and (a[i] = max) then
    writeln('Элемент a[',i,'] равен максимальному значению ', max:0:1);
Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2019, 02:26

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

Удалить из массива целых чисел все нули. Сформировать два новых массива. В первый переписать все элементы данного массива с четными номерами, во второ
Удалить из массива целых чисел все нули. Сформировать два новых массива. В первый переписать все...

Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами
Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами....

Заменить все элементы массива большие чем "a" значением максимального элемента этого массива
Всем драсте, в общем у меня такая же ситуация) помогите пожалуста написать програмки на массивах...

Заменить все положительные элементы вещественного массива значением максимального отрицательного элемента
Заменить все положительные элементы вещественного массива значением максимального отрицательного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.