Помощь по TР. Массивы.

PHILOSOPH13 · 14.06.2010, 21:56

кто нить может помочь проги написать в TP по массивам???зачет на носу,не успеваю...
Вариант №32
Даны целые числа K, N, а так же K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.
10 Вариант №36
Дан массив размера N. Найти максимальный из его элементов , не являющихся ни локальным минимумом, ни локальным максимумом (определение локального макс и мин даны в заданиях №32, 33). Если таких элементов в массиве нет, то вывести 0
10 Вариант№ 60
Дан массив A размера N. Сформировать новый массив И того же размера по следующему правилу: элемент B(K) равен сумме элементов массива A с номерами от K до N

AlexZir · 15.06.2010, 09:52

Цитата:

Даны целые числа K, N, а так же K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.

Код:

uses crt;
const k=10; n=10; {значения измените сами}
var i,j:integer;
     p: array[1..k,1..n] of integer;
begin
randomize;
{заполнение массива случайными значениями}
for i:=1 to k do
for j:=1 to n do
p[i,j]:=random(100)-40;
 
{поиск элемента=2}
for i:=1 to k do begin
for j:=1 to n do
if p[i,j]=2 then begin writeln(j); break; end else if j=n then writeln(0);
end;
readln;
end.

AlexZir · 15.06.2010, 10:03

Цитата:

Дан массив A размера N. Сформировать новый массив И того же размера по следующему правилу: элемент B(K) равен сумме элементов массива A с номерами от K до N

Код:

uses crt;
const n=10;
var a,b:array[1..n] of real;
i,k:integer;
begin
for i:=1 to n do begin
writeln('Введите ',i,' элемент массива');
readln(a[i]); end;
 
for i:=1 to n do begin
b[i]:=0;
for k:=i to n do
b[i]:=b[i]+a[k];
end;
 
for i:=1 to n do
writeln(b[i]);
 
readln;
end.

AlexZir · 15.06.2010, 10:13

Третью задачу сами решить попробуйте, тем более что определений локального минимума и локального максимума из вашей методички я не вижу

PHILOSOPH13 · 15.06.2010, 17:14

хахах))))спасибо друг!)))))

14.06.2010, 21:56	#1 (permalink)
PHILOSOPH13 Новичок Регистрация: 15.04.2010 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помощь по TР. Массивы. кто нить может помочь проги написать в TP по массивам???зачет на носу,не успеваю... Вариант №32 Даны целые числа K, N, а так же K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек. 10 Вариант №36 Дан массив размера N. Найти максимальный из его элементов , не являющихся ни локальным минимумом, ни локальным максимумом (определение локального макс и мин даны в заданиях №32, 33). Если таких элементов в массиве нет, то вывести 0 10 Вариант№ 60 Дан массив A размера N. Сформировать новый массив И того же размера по следующему правилу: элемент B(K) равен сумме элементов массива A с номерами от K до N

15.06.2010, 10:13	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Третью задачу сами решить попробуйте, тем более что определений локального минимума и локального максимума из вашей методички я не вижу __________________ Убить всех человеков!

14.06.2010, 21:56
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Мой вам совет - прочитайте похожие обсуждения Массивы Массивы. Нужна помощь в доработке программы.

15.06.2010, 17:14	#5 (permalink)
PHILOSOPH13 Новичок Регистрация: 15.04.2010 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	хахах))))спасибо друг!)))))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070