Технический форум - Помощь по TР. Массивы.

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помощь по TР. Массивы. (http://www.tehnari.ru/f41/t37008/)

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

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

Цитата:

Даны целые числа 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.

Цитата:

Дан массив 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.

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

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