Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

в массиве А(N) поменяйте местами первый отрицательный и минимальный элементы

10-11 класс

Nikogosmanukya 09 мая 2015 г., 12:09:12 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Androngecman74
09 мая 2015 г., 14:38:14 (8 лет назад)

uses crt;

const N=10;
var a:array[1..N] of integer;
i,k,m,min,imin:integer;
Begin
readln(m);
for i:=1 to m do begin
readln(a[i]);
min:=min+a[i];
end;

for i:=1 to m do begin
if a[i]<0 then begin
k:=i;
break;
end;
end;

for i:=1 to m do begin
if a[i]<min then begin
min:=a[i];
imin:=i;
end;
end;

min:=a[imin];
a[imin]:=a[k];
a[k]:=min;

for i:=1 to m do write(a[i],' ');

end.

Ответить

Другие вопросы из категории

Сделайте блок схемы по этим программам ПОЖАЛУЙСТА

program UKD;
var
P,S,R,c:real; a,b:integer;
begin
writeln('Введите a b');
read (a); read(b);
c := sqrt(a*a+b*b);
P := a+b+c;
S := 1/2*(a*b);
R := 1/2*sqrt(a*a+b*b);
writeln('P=',P,' S=',S,' R=',R);
end.

program UKD;
var
x,i,n:integer;
y:real;
begin
writeln('Vvedite x n');
read(x);
read(n);
for i:=1 to n do
begin
if(i mod 2<>0)then
y:=y+sqrt(sin(x)/i);
end;
write(y);
end.

Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [ -20, 50 ].

Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.

что такое setup.exe

Читайте также

ПОМОГИТЕ! Нужно написать программу в паскале. 1. Поменяйте местами первый элемен массива А(8) с наибольшим элементом, а

последний - с наименьшим элементом массива. Случайные числа в [10;99]

2. Посчитайте сумму чётных элементов массива А(8). Случайные числа в [1;9]

3. Найдите номер нулевого элемента данного одномерного массива А(10). Случайные числа в [-10;10]

Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [ -20, 50 ].

Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.

1. Помогите исправить ошибки и нарисовать блок-схему. Задание: дана матрица целых чисел размером

4х4. Поменять местами первый и последний элемент массива х.

Листингпрограммы:

Pascal.

Составьте программу замены местами в массиве B(N) первого положительного и минимального элементов. Спасибо заранее



Вы находитесь на странице вопроса "в массиве А(N) поменяйте местами первый отрицательный и минимальный элементы", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.