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

[PHILOSOPH13]

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

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

 

[AlexZir]

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

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

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

 

[PHILOSOPH13]

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