Помогите! Мне нужно решить задачки на одномерный массив!

[Loren]

1) Дан массив из n чисел. Найти max элимент среди четных и положительный чисел.
2) В 1 строке - 15 целых чисел заданных случайным образом в диапозоне от -15 до 20. Найти кол - во элиментов кратных 3.
3) Пусть X0= a, Y0=b
Xi = (Xi – 1)/2, где i = 1,…, n
Yi =( Xi – 1+Yi – 1)/2, где I = 1, …, n
Вычислить:
n
∑(Xi+Yi)^2
i=0
4) В 1 столбец - 15 чисел, во 2 столбец - переписать эти числа пока не встретиться 0.

[maladoy]

Мне нужно решить задачки

Попытки свои выкладывайте!

[ViNcHeStEr]

1)

var
mas:array of integer;
n,i,max:byte;

begin
write('Vvedite razmernost massiva: ');
Readln(n);
setlength(mas,n);
randomize;
for i:=1 to n do begin
mas[i]:=random(20)-10;
write(mas[i],' ');
end;
for i:=1 to n do begin
if ((mas[i]>max) and (mas[i]>0)) then max:=mas[i];
end;
writeln;
write('MAX: ',max);
readln;
end.

[maladoy]

2ViNcHeStEr проверку на четность надо бы добавить

[Stilet]

во 2 столбец - переписать

Войну и мир? )
Давай поконкретнее задание - ниче не понятно.

[ViNcHeStEr]

Вот с проверкой на чётность:
это

if ((mas[i]>max) and (mas[i]>0)) then max:=mas[i];

заменить на это

if ((mas[i]>max) and (mas[i]>0) and ((mas[i]/2)=(mas[i] div 2))) then max:=mas[i];

[maladoy]

((mas[i]/2)=(mas[i] div 2)))

вместо этого проще вставить

((mas[i] mod 2) = 0)

[Лунатик222]

program loren;
uses crt;
type arr = array [1..15] of integer;
var mas:arr;
    i, sum:integer;
procedure zap(k:arr);
 begin
 randomize;
  for i:=1 to 15 do
   mas[i]:=random(30)-10;
 end;
procedure vivod(k:arr);
 begin
  for i:=1 to 15 do
   write(mas[i], ' ');
 end;
begin
clrscr;
zap(mas);
vivod(mas);
writeln;
for i:=1 to 15 do
 begin
  if (mas[i] mod 3 = 0) and (mas[i]<>0) then
   begin
    write(mas[i], ' ');
    sum:=sum+mas[i];
   end;
 end;
writeln;
write(sum);
readln;
end.

[artemon999]

Нужна помощь в прграммировании на QBasic...
Задача такая:
Дан массив из целых чисел Сij, где i=1,2,3,4,5,6; j=1,2,3,4,5,6. Найти максимальное отрицательное и минимальное положительное элементы в каждой строке. Заменить их соответсвующими этой строке элементами главной диагонали. Вывести на печать все промежуточные и окончательные значения.

ввел данные через операторы read, data и дальше не сображу как делать, если кто понимает, напиши плиз)))

cls
dim с(i,j)
data 1,4,-6,8,-3,7
data 5,-1,6,12,-7,2
data -10,5,-4,3,8,-6
data 9,-,5,4,1,-9,9
data 4,7,-3,-1,4,9
data 5,9,4,-1,-7,-5
for i=1 to 6
for j=1 to 6
read c(i,j)
print c(i,j)
next j
print
next i
.
.
.