Предмет: Алгебра, автор: delaksdelaksov

срочно розв'яжіть подвійну нерівність 3

Ответы

Автор ответа: viktoria3362
0
нерівність? де? яку?
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Другие предметы, автор: fhfjchg
12 добрых качеств которые составляют богатство души человека
1 год назад
Предмет: Окружающий мир, автор: yekaterinasteg
ПОМОГИТЕ!!! СРОЧНО!!! Дом пашкова ХVIII века похож на____________ тем что, у него есть__________

Храм христа спасителя__ века похож на благовещенский собор _____ века тем, что у него есть _________. А ещё Храм христа спасителя ____ века похож на____________ тем, что у него есть _________.
1 год назад
Предмет: Русский язык, автор: ляляля43
разбор слова нектаром как часть речи
1 год назад
Предмет: Информатика, автор: Пашааф
Пишет "Ошибка времени выполнения: System.IndexOutOfRangeException: Индекс находился вне границ массива." и не выводит отсортированный массив. Что делать?

//Ввести кол-во эл-тов n одномерного массива целого типа и сгенерировать массив в диапазоне [-70,80]. Требуется:
//1 Вывести сгенерированный массив в отдельной строке, найти max и min эл-ты и поменять их местами
//2 Отсортировать полученный массив по убыванию и вывести в 3-ей строке
program dz1;
var
x:array[1..100]of integer;
i,max,min,n,t,buf,k:integer;
begin

write('Введите кол-во эл-тов n:');readln(n);

for i:=1 to n do
begin
x[i]:=random(106)-35;
end;
writeln('вывод сген. массива');
for i:=1 to n do write (x[i],' ');
writeln;
writeln;

//1
writeln('Поиск max: ');
max:=x[1];
for i:=2 to n do
if (maxx[i])then
begin
min:=x[i];
end;

writeln('min=',min);
writeln('max=',max);
t:=x[max];
x[max]:=x[min];
x[min]:=t;

//2
for i:=1 to n-1 do
begin
for k:=1 to n-1 do
begin
if x[k] < x[k+1] then
begin
buf:=x[k];
x[k]:=x[k+1];
x[k+1]:=buf;
end;
end;

end;
writeln;
writeln('Массив отсортирован');

for k:=1 to n do write(x[k],' ');
readln;

for k:=1 to n-1 do
read(x[n]);
readln(x[n]);

end.

Заранее спасибо.
7 лет назад
Предмет: Алгебра, автор: Аноним
Свойства арифметической прогресси
7 лет назад