Паскаль. Массивы (4 задачи)

[Lucky-87%)]

ПОЖАЛУЙСТА, помогите написать программы к 4 задачам.
1. Найти наибольшее значение (х1+у1) для массивов (х1,х2,...,х40) и (у1,у2,...,у40), используя любой алгоритм поиска максимума.
2. Дана матрица размером 3х4. Составить программу для просчета количества четных элементов в каждой строке матрицы.
3. Среди строк заданной целочисленной матрицы С размерос 7х7, компоненты которой не превышают 10, найти строку с максимальным значением элемента. Предусмотреть при вводе проверку на целочисленность вводимых чисел.
4. Составить подпрограмму для определения расстояния между точками А и В в n-мерном пространстве по формуле:
a.jpg
где ai и bi - координаты точек А и В. Используя ее, найти минимальное из расстояний между точками X,Y,Z.

[Zer0]

за бесплатно на вас врядли кто-то будет тратить время) но можете попытаться)

если что, предлагаю свои услуги за 80 р/задача

Мои контакты слева

[Ermowkin]

2.
Я думаю так

var
a:array[1..3,1..4] of integer;
i,j,count1,count2,count3:integer;

begin
  writeln('Enter massiv');
  For i:=1 to 3 do
   For J:=1 to 4 do
    begin
     read(a[i,j]);
     if a[i,j] mod 2=0 then
     case i of
     1:inc(count1);
     2:inc(count2);
     3:inc(count3);
     end;
    end;
writeln('Stroka 1: '+inttostr(count1));
writeln('Stroka 2: '+inttostr(count2));
writeln('Stroka 3: '+inttostr(count3));
readln;
end.

[Gelirgwenn]

Корыстный у нас народец, но за детские задачи на форумах брать деньги... Я в шоке просто
Вот первая задача:

program Max;
const m=40;
type
Mas=array [1..m] of integer;
var
a: Mas;
b: Mas;
MaxA,MaxB,i: integer;
begin
MaxA:=0;
MaxB:=0;
{заполняем массивы}
for i:=1 to m do
begin
    a[i]:=random(100);
    b[i]:=random(150);
end;
{находим максимальное в двух массивах}
for i:=1 to m do
begin
    if (MaxA<a[i]) then
    MaxA:=a[i];
    if (MaxB<b[i]) then
    MaxB:=b[i];
end;
{выводим на экран сумму максимальных чисел двух массивов}
Writeln(MaxA+MaxB);
end.

вот вам пример решения третьей:

program Max;
uses crt;
const m=3;n=3;
type
Mas=array [1..m,1..n] of integer;
var
s: char;
Cfr: set of char;
str: string [3];
a: Mas;
maxm,code,i,j,k: integer;
begin
clrscr;
Cfr:= ['0'..'9'];
{заполнение массива, дает заполнить только целыми числами меньше 10}
for i:=1 to m do
begin
    j:=1;
    while j<=n do
    begin
        k:=0;
        str:='';
        repeat
        s:=readkey;
        if s in Cfr then
        begin
             k:=k+1;
             write(s);
             str:=str+s;
        end;
        until ((s=#13)and(k>0))or(k>1);
        writeln;
        Val (str,a[i][j],code);
        if a[i][j]<=10 then
             inc(j);
    end;
end;
{нахождение максимального элемента}
for i:=1 to m do
for j:=1 to n do
if maxm<a[i][j] then
   maxm:=a[i][j];
{вывод максимального элемента}
writeln('Max=',maxm);
end.

вот 4 задачка:

program PrAB;
const m=100;
type
Mas=array [1..m] of real;
function Rastoyanie (p: integer; a,b: Mas):real;
var
s: real;
i: integer;
begin
s:=0;
for i:=1 to p do
    s:=s+sqr(a[i]-b[i]);
Rastoyanie:=sqrt(s);
end;
var
x: Mas;
y: Mas;
z: Mas;
k,i: integer;
xy,xz,yz,minr: real;
begin
writeln('Vvedite n prostranstva');
readln(k);
for i:=1 to k do
begin
    write('x[',i,']=');
    readln(x[i]);
    write('y[',i,']=');
    readln(y[i]);
    write('z[',i,']=');
    readln(z[i]);
end;
xy:=Rastoyanie(k,x,y);
xz:=Rastoyanie(k,x,z);
yz:=Rastoyanie(k,y,z);
if xy<xz then
   if xy<yz then
      minr:=xy
   else
      minr:=yz
else
   if xz<yz then
      minr:=xz
   else
      minr:=yz;
writeln('Min=',minr:2);
end.

Удачи

[Lucky-87%)]

Огромное СПАИБО за помощь.