|
Задачи с массивами
|
|
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
|
|
|
|
|
|
Писал не компиля
где ошибка вылетает?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
вывода на экран нет и константы не прописаны, почему? Добавлено (09.10.12, 10:40)
---------------------------------------------
Размер массива задать константой в блоке описания.
Массив заполнить случайными числами, если другого заполнения не диктует задача.
Вывести исходный массив и массив после преобразования по условию задачи.
как то так надо сделать. я не понимаю
|
|
|
|
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
|
|
|
|
- украинский вариант
Дан одномерный масив Z[10]. Здаелать блок-схему и програму для обчисления D=A+B+C, где А - сума тех елементов одномерного масива , каторые делятся на 9, В - сумя максимального та минимального елементав масива , С - сума тех елементав масива порядковые номера , которых не парные числа.Огранизовать ввод елементов масива из файла, результат вывисти в файл
1kurs kak 1 mirovaya
№ 126 | Автор: 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
|
|
|
|
спс оч выручил)
единственое паскаль АБС ругается на строку Code max:=low(max);min:=high(min);
а имено на max:=low(max);min:=high(min);
1kurs kak 1 mirovaya
|
|
|
|
Эхх...абс же..
ну сделай так:
max:=-32000;low:=32000;
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
|
Антонио, великий решатель, нужна помощь)) Cоставить программу подсчета столбцов двухмерного массива. Cодержащих более двух одинаковых элементов.
|
|
|
|
ахахах)))
вот это обращение))
поищи-ка на форуме, когда-то давно кому-то писал или такую-же или что-то похожее))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
я в тебя верю))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
диагонали квадратной матрицы:
дана квадратная матрица A порядка М. найти сумму элементов ее главной диагонали,то есть диагонали, содержащей следующие элементы : A1,1, A2,2, A3,3, ..., AM,M.
|
|
|
|
|
Данаматрица размерности n´n.Получите линейный массив из n элементов, где каждый i-тый элемент определяется по правилу: - равен сумме элементов i-той строки, предшествующихпервому отрицательному элементу, если в i-тойстроке матрицы элемент, принадлежащий главной диагонали, отрицателен;- равен сумме элементов i-той строки, после последнегопо порядку отрицательного элемента, если в i-тойстроке матрицы элемент, принадлежащий главной диагонали, неотрицателен.
|
|
|
|
Помогите,пожалуйста,решить в Паскале 2 задачи:
1)Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.
Формат выходных данных
Необходимо вывести все четные элементы массива (то есть те элементы, которые являются четными числами).
Ввод: 3 вывод:
1 3 2 2
2)Формат входных данных
Сначала задано число N - количество элементов в массиве, N<=10000.
Далее через пробел записаны N чисел - элементы массива. Все числа по модулю не превосходят 10^9.
Формат выходных данных
Выведите одно число – количество положительных элементов в массиве.
Ввод Вывод
3 2
1 2 -3
|
|
|
|
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
|
|
|
|
еще несколько задач,пожалуйста:
1)Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.
Формат выходных данных
Необходимо вывести количество элементов массива, которые больше предыдущего элемента в этом массиве.
2)Напишите программу, которая определяет, есть ли в данном массиве два соседних элемента с одинаковыми знаками.
Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива. Массив содержит только ненулевые числа.
Формат выходных данных
Программа должна вывести YES, если есть два соседних элемента с одинаковыми знаками, и NO – иначе.
|
|
|
|
1)
var
a:array[1..1000]of integer;
i,n,count:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=2 to n-1 do
if a[i]>a[i-1] count:=count+1;
writeln(count);
end.
2)
var
var
a:array[1..1000]of integer;
i,n:integer;
l:boolean;
begin
l:=false;
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if (a[i]>0 and a[i+1]>0) or (a[i]<0 and a[i+1]<0) then begin
l:=true;break;end;
if l then writeln('YES') else writeln('NO');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
