Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Alexxx12
0 / 0 / 0
Регистрация: 10.04.2013
Сообщений: 17
1

Даны натуральные n, m, действительные числа a1, … , an и b1, … , bm. Найти наименьший среди элементов a1, … , an, который не входит в b1, … , bm

28.04.2013, 22:40. Просмотров 596. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста

Даны натуральные n, m, действительные числа
a1, … , an и b1, … , bm. Найти наименьший среди элементов a1, … , an, который не входит в b1, … , bm.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2013, 22:40
Ответы с готовыми решениями:

Даны натуральные число n, действительные числа y_1,… y_n. Найти z_1, ... z_n
Даны натуральные число n, действительные числа y_1,… y_n. Найти z_1, ... z_n, где

Даны действительные и натуральные числа
Доброго времени суток уважаемые программисты. Помогите пожалуйста решить: 1. Даны действительное...

даны действительные числа a и натуральные n. Вычислить: 1+1/2+1/3+1/4+...+1/n.
даны действительные числа a и натуральные n. Вычислить: 1+1/2+1/3+1/4+...+1/n. помогите с...

Даны действительные числа а1,а2, . . . ,аn. Поменять местами наибольший и наименьший элементы.
Помогите пожалуйста

Даны действительные числа a, а1 ., а n„. Поменять местами наибольший и наименьший элементы
Помогите кто может Даны действительные числа a,, а1 ..., а n„. Поменять местами наибольший и...

3
orange_rush
141 / 147 / 116
Регистрация: 15.11.2012
Сообщений: 532
Записей в блоге: 2
28.04.2013, 23:33 2
1.найти наименьший и наибольший элементы из массива b
2.
Pascal
1
If ((a[i]<bmin) or (a[i]>bmax)) and (a[i]<amin) Then amin:=a[i];
))
1
Alexxx12
0 / 0 / 0
Регистрация: 10.04.2013
Сообщений: 17
29.04.2013, 01:06  [ТС] 3
orange_rush, а можешь полностью накидать?
0
orange_rush
141 / 147 / 116
Регистрация: 15.11.2012
Сообщений: 532
Записей в блоге: 2
29.04.2013, 09:37 4
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
Var
    i,m,n:Integer;
    bmin,bmax,amin:Real;
    a,b:Array[1..100]Of Real;
BEGIN
bmin:=MaxInt; amin:=MaxInt;{MaxInt = 32000}
bmax:=0;
Write('M = '); Readln(M);
Write('N = '); Readln(N);
Writeln('massiv b:');
For i:=1 To M Do Begin
    b[i]:=Random(100)/(Random(10)+1);
    If b[i]>bmax Then bmax:=b[i];
    If b[i]<bmin Then bmin:=b[i];
    Write(b[i]:7:2);
End;Writeln;
Writeln('massiv a:');
For i:=1 To N Do Begin
    a[i]:=Random(100)/(Random(10)+1);
    Write(a[i]:7:2);
End; Writeln;
Writeln('bmin=',bmin:5:2);
Writeln('bmax=',bmax:5:2);
For i:=1 To N Do
    If ((a[i]<bmin) or (a[i]>bmax)) and (a[i]<amin) Then amin:=a[i];
Writeln('amin=',amin:5:2);
Readln;
END.
1
29.04.2013, 09:37
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2013, 09:37

Даны натуральные числа действительные числа a1,.,an(i=n)
Даны натуральные числа i,n,действительные числа a1,...,an(i=n).Найти среднее арифметическое всех...

Даны натуральные числа N, M. найти все натуральные числа, меньше N, квадрат суммы цифр которых равен M
Помогите, пожалуйста, с задачей на C#: Даны натуральные числа N, M. найти все натуральные числа,...

Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых...


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

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

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