Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
varf97
0 / 0 / 0
Регистрация: 24.09.2014
Сообщений: 6
#1

Найти наименьший элемент массива - Pascal ABC

18.12.2014, 14:53. Просмотров 357. Ответов 1
Метки нет (Все метки)

Составить программу для вычисления
R - наименьший элемент массива;
Q - сумма нечетных элементов массива;
S - количество элементов, лежащих в интервале (A,B) (A, B ввести).
Полученные значения элементов R,Q,S,T вывести на печать.

T=(R/(Q+1))+S
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2014, 14:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти наименьший элемент массива (Pascal ABC):

Найти наименьший элемент массива
найти наименьший элемент массива 10x10 от 0 до 100 через рандом

Найти наименьший элемент массива и определить, в какой половине массива он находится – в первой или второй
Дан линейный массив из N целых чисел (N=10). Найти наименьший элемент массива...

Найти наименьший положительный элемент массива
Тема: одномерные массивы. Условие: найти наименьший положительный элемент...

Найти наименьший четный элемент массива
Найдите наименьший четный элемент массива. Если такого нет, то выведите первый...

Найти наименьший элемент заштрихованной части массива
Помогите написать код-найти наименьший элемент заштрихованной части массива.

Для каждого столбца массива найти наименьший элемент
Дан массив X(N,M). Для каждого столбца массива найти наименьший элемент. Из...

1
Portoble
32 / 32 / 45
Регистрация: 01.11.2014
Сообщений: 155
Записей в блоге: 4
18.12.2014, 16:23 #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
25
26
27
28
29
30
31
32
33
34
uses crt;
const
n=5;
var
 k:array[1..n] of real;
 S,i:integer;
 Q,R,T,A,B:real;
Begin
 for i:=1 to n do
  Begin
   write('Ââåäèòå ',i,'-ûé ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ*: ');
    readln(k[i]);
  end;
 write('Ââåäèòå Г§Г*Г*Г·ГҐГ*ГЁГҐ Г*Г*Г·Г*Г«Г* ГЁГ*òåðâГ*Г«Г* (ГЂ): ');
  readln(a);
 write('Ââåäèòå Г§Г*Г*Г·ГҐГ*ГЁГҐ ГЄГ®Г*Г¶Г* ГЁГ*òåðâГ*Г«Г* (B): ');
  readln(b);
 R:=k[i];
 for i:=2 to n do
  if k[i]>R then R:=k[i];
 Q:=0;
 for i:=1 to n do
  if i mod 2 <> 0 then
   Q:=Q+k[i];
 S:=0;
 for i:=1 to n do
  if (k[i]>a) and (k[i]<b) then
   s:=s+1;
 T:=(R/(Q+1))+S;
 writeln('R = ',R);
 writeln('Q = ',Q);
 writeln('S = ',S);
 writeln('T = ',T);
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2014, 16:23
Привет! Вот еще темы с решениями:

Найти наименьший элемент двумерного массива вещественных чисел
Найти наименьший элемент двумерного массива вещественных чисел.

Найти наименьший элемент массива и поменять его местами с первым элементом
Найти наименьший элемент массива и поменять его местами с первым элементом.Как...

Найти наименьший элемент одномерного массива, используя три вида циклов
массив из 10 чисел(задаваемых оператором). необходимо найти наименьший элемент...

Найти наименьший элемент, если он отрицательный, то заменить все элементы массива на их модули
Помогите нужна блок схема и программа в PascalABCNET. Дан массив X(N). Найти...


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

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

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