|
Задачи с массивами
|
|
пример ввода-вывода в студию:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
a:array[1..100]of byte;
i,n,pmax,p:byte;
begin
read(n)
for i:=1 to n do begin
read(a[i]);
if a[i]>pmax then pmax:=a[i];end;
p:=a[1];a[1]:=pmax;pmax:=p;
for i:=1 to n do
write(a[i],' ');
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
У преподавателя спроси
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
1)
var
a:array[1..15,1..10]of integer;
i,j,pmax,pmin:integer;
begin
pmax:=low(pmax);pmin:=high(pmin);
for i:=1 to 15 do
for j:=1 to 10 do begin
read(a[i,j]);
if a[i,j]>pmax then pmax:=a[i,j];
if a[i,j]<pmin then pmin:=a[i,j];end;
writeln(pmax,' ',pmin);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Введите число m
3
Введите размерность массива
4
5
6
9
1
25 36 81 1
|
|
|
|
Quote (Люб2) она не работает(
В каком смысле не работает? Не правильный ответ или не запускается? Подробнее.Добавлено (28.05.11, 00:13)
---------------------------------------------
Quote (HWOARANG) p:=a[1];a[1]:=pmax;pmax:=p;
Зачем присваивать рmax р? Тебе надо в массиве поменять первый элемент и максимальный, а не A[1] и pmax
|
|
|
|
Quote (Berestovskiy) У преподавателя спроси
«Работа со строковыми переменными.»
|
|
|
|
2)
var
a:array[1..15,1..10]of integer;
i,j,sr:integer;
begin
sr:=0;
for i:=1 to 15 do
for j:=1 to 10 do
read(a[i,j]);
for i:=1 to 15 do begin
for j:=1 to 10 do
sr:=sr+a[i,j];
writeln(round(sr/10),' ');sr:=0;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Ну так всё правильно, тот код при таком вводе данных такой-же вывод как и в примере даёт:)
только в этой строчке ";" нужно убрать...писал просто ещё сонным:)
a:array[1..Q]of integer;i,c,n,m:integer;;
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Я уже разобралась! все работает. не могла ответ получить...
|
|
|
|
Quote (Tolian92) «Работа со строковыми переменными.»
Спасибо Капитан Очевидность
Спроси у него:"как в строке из пяти символов вмесить шестибуквенное слово?"))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
3)
var
a:array[1..15,1..10]of integer;
i,j,sr:integer;
begin
sr:=0;
for i:=1 to 15 do
for j:=1 to 10 do
read(a[j,i]);
for i:=1 to 15 do begin
for j:=1 to 10 do
sr:=sr+a[i,j];
writeln(round(sr/15),' ');sr:=0;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
поздравляю:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
4)
var
a:array[1..15]of integer;
i,summa:integer;
begin
summa:=0;
for i:=1 to 15 do
summa:=summa+i;
writeln(summa);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
На здоровье:) "Спасибо" принимается повышением репутации ( Зелёный плюсик:) )
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (firefox) 5)сумму чисел в столбике
В каком именно?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
6)
var
a:array[1..15,1..10]of integer;
i,j,summa:integer;
begin
summa:=0;
for i:=1 to 15 do
for j:=1 to 10 do begin
read(a[i,j]);
summa:=summa+a[i,j];end;
writeln(summa);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
1. Дан вектор A(n). Подсчитать количество элементов максимальных по величине и если оно больше 2, то все элементы вектора с четными индексами заменить на 0.
3. Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – максималь-ный элемент i-ого столбца матрицы, среди элементов, стоящих в четных строках.
№ 119 | Автор: lisa22a |
2012-09-23, 12:51 | Изменено: lisa22a - Вс, 2012-09-23, 13:24
|
Репутация: [ + 0 ]
|
|
|
|
В массиве А[1..N] определить максимальное значение
Все элементы, находящиеся в массиве до максимального значения, увеличить на первое значение массива, а все числа, расположенные после максимального значения, рассортировать по убыванию.Добавлено (08.10.12, 23:35)
---------------------------------------------
кто знает как пишется сама программа? заранее спасибо!!!
|
|
|
|
