Новые сообщения · Правила  
Страница 7 из 8«125678»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задачи с массивами
Задачи с массивами
1. Дан вектор A(n). Подсчитать количество элементов максимальных по величине и если оно больше 2, то все элементы вектора с четными индексами заменить на 0.
3. Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – максималь-ный элемент i-ого столбца матрицы, среди элементов, стоящих в четных строках.
121 | Автор: lisa22a | 2012-09-23, 12:51 | Изменено: lisa22a - Вс, 2012-09-23, 13:24   |  Репутация: [ + 0 ]
В массиве А[1..N] определить максимальное значение
Все элементы, находящиеся в массиве до максимального значения, увеличить на первое значение массива, а все числа, расположенные после максимального значения, рассортировать по убыванию.

Добавлено (08.10.12, 23:35)
---------------------------------------------
кто знает как пишется сама программа? заранее спасибо!!!

122 | Автор: feel | 2012-10-08, 23:35   |  Репутация: [ + 0 ]
var
a:array[1..100]of integer;
i,z,q,n,max:integer;
begin
max:=low(max);
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>max then begin max:=a[i];q:=i;end;end;
for i:=1 to q-1 do
a[i]:=a[i]+a[1];
for i:=q+1 to n do
if a[i]<a[i+1] then begin z:=a[i];a[i]:=a[i+1];a[i+1]:=z;end;
for i:=1 to n do
write(a[i],' ');
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
123 | Автор: Berestovskiy | 2012-10-09, 00:55   |  Репутация: [ + 211 ]
не работает че то
124 | Автор: feel | 2012-10-09, 10:35   |  Репутация: [ + 0 ]
Писал не компиля
где ошибка вылетает?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
125 | Автор: Berestovskiy | 2012-10-09, 10:35   |  Репутация: [ + 211 ]
вывода на экран нет и константы не прописаны, почему?

Добавлено (09.10.12, 10:40)
---------------------------------------------
Размер массива задать константой в блоке описания.
Массив заполнить случайными числами, если другого заполнения не диктует задача.
Вывести исходный массив и массив после преобразования по условию задачи.
как то так надо сделать. я не понимаю

126 | Автор: feel | 2012-10-09, 10:40   |  Репутация: [ + 0 ]
Const
n = 10;
var
a:array[1..n]of integer;
b:array[1..n]of integer;
i,z,q,max:integer;
begin
randomize;
max:=low(max);
for i:=1 to n do begin
a[i]:=random(100);
b[i]:=a[i];
if a[i]>max then begin max:=a[i];q:=i;end;end;
for i:=1 to q-1 do
a[i]:=a[i]+a[1];
for i:=q+1 to n do
if a[i]<a[i+1] then begin z:=a[i];a[i]:=a[i+1];a[i+1]:=z;end;
for i:=1 to n do
write(b[i],' ');
writeln;
for i:=1 to n do
write(a[i],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
127 | Автор: Berestovskiy | 2012-10-09, 21:31   |  Репутация: [ + 211 ]
- украинский вариант
Дан одномерный масив Z[10]. Здаелать блок-схему и програму для обчисления D=A+B+C, где А - сума тех елементов одномерного масива , каторые делятся на 9, В - сумя максимального та минимального елементав масива , С - сума тех елементав масива порядковые номера , которых не парные числа.Огранизовать ввод елементов масива из файла, результат вывисти в файл


1kurs kak 1 mirovaya
128 | Автор: sensation | 2012-10-10, 20:50 | Изменено: sensation - Ср, 2012-10-10, 20:55   |  Репутация: [ + 1 ]
var
a:array[1..10]of integer;
q,w,e,i,max,min,d:integer;
begin
max:=low(max);min:=high(min);
for i:=1 to 10 do begin
read(a[i]);
if a[i]>max then max:=a[i];
if a[i]<low then low:=a[i];
if a[i] mod 9 = 0 then q:=q+a[i];
if i mod 2 = 1 then e:=e+a[i];end;
w:=max+min;
d:=q+w+e;
writeln(q);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
129 | Автор: Berestovskiy | 2012-10-10, 22:14   |  Репутация: [ + 211 ]
спс оч выручил)
единственое паскаль АБС ругается на строку
Code
max:=low(max);min:=high(min);

а имено на max:=low(max);min:=high(min);


1kurs kak 1 mirovaya
130 | Автор: sensation | 2012-10-10, 22:46   |  Репутация: [ + 1 ]
Эхх...абс же..
ну сделай так:
max:=-32000;low:=32000;


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
131 | Автор: Berestovskiy | 2012-10-11, 00:26   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
131 | Автор: Berestovskiy | 2012-10-11, 00:26   |  Репутация: [ + 211 ]
спс

1kurs kak 1 mirovaya
132 | Автор: sensation | 2012-10-11, 09:51   |  Репутация: [ + 1 ]
Антонио, великий решатель, нужна помощь)) Cоставить программу подсчета столбцов двухмерного массива. Cодержащих более двух одинаковых элементов.
133 | Автор: alexcandr831 | 2013-01-12, 19:25   |  Репутация: [ + 0 ]
ахахах)))
вот это обращение))
поищи-ка на форуме, когда-то давно кому-то писал или такую-же или что-то похожее))


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
134 | Автор: Berestovskiy | 2013-01-12, 21:37   |  Репутация: [ + 211 ]
да тут не найдешь))
135 | Автор: alexcandr831 | 2013-01-13, 00:12   |  Репутация: [ + 0 ]
я в тебя верю))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
136 | Автор: Berestovskiy | 2013-01-13, 19:26   |  Репутация: [ + 211 ]
диагонали квадратной матрицы:
дана квадратная матрица A порядка М. найти сумму элементов ее главной диагонали,то есть диагонали, содержащей следующие элементы : A1,1, A2,2, A3,3, ..., AM,M.
137 | Автор: driiim | 2013-02-26, 19:02   |  Репутация: [ + 0 ]
Данаматрица размерности n´n.Получите линейный массив из n элементов, где каждый i-тый элемент определяется по правилу:    -      равен сумме элементов i-той строки, предшествующихпервому отрицательному элементу, если в i-тойстроке матрицы элемент, принадлежащий главной диагонали, отрицателен;-      равен сумме элементов i-той строки, после последнегопо порядку отрицательного элемента, если в i-тойстроке матрицы элемент, принадлежащий главной диагонали, неотрицателен.
138 | Автор: Danonya | 2013-03-30, 13:17   |  Репутация: [ + 0 ]
Помогите,пожалуйста,решить в Паскале 2 задачи:
1)Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.
Формат выходных данных
Необходимо вывести все четные элементы массива (то есть те элементы, которые являются четными числами).
Ввод: 3 вывод:
1 3 2 2
2)Формат входных данных
Сначала задано число N - количество элементов в массиве, N<=10000.
Далее через пробел записаны N чисел - элементы массива. Все числа по модулю не превосходят 10^9.

Формат выходных данных
Выведите одно число – количество положительных элементов в массиве.
Ввод Вывод
3 2
1 2 -3

139 | Автор: ASDF2679 | 2013-03-30, 15:12   |  Репутация: [ + 0 ]
1)
const
n = 10;
var
a:array[1..n]of integer;
i:byte;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a [i]mod 2 = 0 then write(a[i],' ');
end.

2)
var
i,n,count:integer;
a:array[1..10000]of longint;
begin
count:=0;
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then count:=count+1;end;
writeln(count);
end.

"Спасибо" принимается в виде повышения репутации (Зелёный плюсик:) ). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
140 | Автор: Berestovskiy | 2013-03-31, 12:56   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задачи с массивами
Страница 7 из 8«125678»
Поиск: