Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Лучик2015
0 / 0 / 2
Регистрация: 10.10.2015
Сообщений: 6
1

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

05.11.2015, 11:44. Просмотров 1350. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста.
Описать вещественный массив из n элементов. Заполнить его значениями: sin0.1, sin0.2, …., sin(0.1n). Найти максимальное и минимальное значение среди элементов этого массива. Запомнить их порядковые номера (индексы) и вывести на экран.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.11.2015, 11:44
Ответы с готовыми решениями:

Операции над массивами. Определить максимальное значение среди нечетных элементов массива и минимальное среди четных элементов массива
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов...

Массив: найти максимальное и минимальное значение среди четных и нечетных элементов.
В массиве Е(65) найти максимальное и минимальное значение среди четных и нечетных...

Найти максимальное и минимальное значения среди элементов массива и их среднее арифметическое
Помогите пожалуйста с заданием: В массиве А(20) найти максимальное и минимальное значения среди...

Найти минимальное, максимальное и среднее значение элементов массива
1)Ввести массив из 10 чисел. Найти минимальное, максимальное и среднее значение. Эти значения...

Найти минимальное значение среди элементов массива
задача:напишите программу, позволяющую найти минимальное значение среди элементов массива, имеющих...

1
vint-81
охотник
1010 / 534 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
05.11.2015, 15:01 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=20;
var a:array[1..n] of real;
    nmax,nmin:byte;
    max,min:real;
    i:integer;
begin
 writeln('A:');
 a[1]:=sin(0.1);
 max:=a[1];min:=a[1];nmax:=1;nmin:=1;
 write(a[1]:7:3);
 for i:=2 to n do
  begin
   a[i]:=sin(i/10); write(a[i]:7:3);
   if i mod 10=0 then writeln;
   if a[i]>max then begin max:=a[i];nmax:=i end;
   if a[i]<min then begin min:=a[i];nmin:=i end
  end;
 writeln;
 writeln('max = ',max:7:3,' = A[',nmax,']');
 writeln('min = ',min:7:3,' = A[',nmin,']');
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.11.2015, 15:01

Найти максимальное и минимальное значение элементов массива Х и поменять их местами
Найти максимальное и минимальное значение элементов массива Х и поменять их местами

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

Найти максимальное и минимальное значения среди элементов файла
1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. 2. Найти...


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

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

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