Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Программирование задач с одномерными массивами

Автор: andreis459 26.3.2011, 22:52

Поменять местами первый и максимальный по модулю отрицательный элементы массива.

Код

program EXAMPLE_6;
uses crt;
var m : array [1..50] of integer;
 n, i : byte;
 a, z: integer;
begin
clrscr;
writeln('Задание 6. Вариант  5');
write('задайте длину массива  ( <= 50 ):');
readln (n);
writeln('введите исходный массив');
for i := 1 to n do
begin
write ('m[',i,']=');
readln (m[i]);
end;
writeln ('исходный массив');
for i := 1 to n do write(m[i]:6);


writeln;
writeln ('Программа завершена .Нажмите  Enter.');
readln;
end.

помогите дописать

Автор: ФедосеевПавел 27.3.2011, 01:10

Ну дык, почти всё готово.
Дальше:
1. Ищешь Imax - индекс элемента с масимальным по модулю отрицательным значением. Т.е проверяешь два условия - а) элемент отрицателен, 2) его модуль больше текущего Mmax. Если условие выполняется, то запоминаешь Imax:=i и Mmax:=abs(m[i]). Чтобы было проще, начальное значение индекса берешь равным 0 (т.к. массив индексируется от 1 до 50), текущее максимальное значение (Mmax) - также 0.
2. Меняещь местами элементы массива с индексами 1 и Imax.

При поиске можно проверять не два условия, а одно - (m[i]<Mmax). Это чуть упростит вид условия, но добавит вопросов преподавателя.

Автор: MetalFan 13.5.2011, 18:40

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: LeraMiller 26.6.2011, 10:48

Cформировать квадратную матрицу порядка n по заданому образцу :

1      2       3   . . .   n-2   n-1    n
n    n-1    n-2  . . .   3       2      1
1      2       3    . . .  n-2   n-1    n
.         .        .     .       .        .        .
.         .        .       .     .        .        .
.         .        .          .  .        .        .
1        2      3    . . .   n-2   n-1  n
n      n-1   n-2  . . .    3        2   1