Проги с массивами

[bwitcher]

Ребят, помогите хотя бы с одной задачкой, пжл. Очень надо!
Составить программу, которая определяет в классе самого высокого и самого легкого учеников и выводит на экран их фамилии, вес и рост.
Поможете?

[Pein95]

сделаю не дорого))))скайп pein955))

[bwitcher]

Нету ни Скайпа, ни денег в инете, в этом и проблема... Я б скинулся, в принципе, но нет в инете бабла у меня

[k0tone]

2) Написать программу, которая вычисляет среднее арифметическое ненулевых элементов массива М[1..100], элементы которого вычисляются по формуле: M[i]=sin(i)*cos(i)

program test;

 uses
   crt;
 var
   M:array [1..100] of real;
   j,k,sr:real;
   i:integer;

 begin
   clrscr;
   for i:=1 to 10 do
     M[i]:=sin(i)*cos(i);

   for i:=1 to 10 do
     write(M[i]:7:2);

   k:=0;j:=0;
   for i:=1 to 10 do
     begin
     if M[i]<>0 then
       begin
         k:=k+1;
         j:=j+M[i];
       end;
       end;

   sr:=j/k;

   writeln;
   writeln('sr=',sr:4:4);

   readln;

 end.

[VIK_aka_TOR]

с записями хоть знаком??? если уж совсем по зарез пиши в личку в аське...
смогу помочь про задачку с учениками...

[k0tone]

3) Составить программу, которая в каждом двумерном массиве находит самое большое значение и элементы строки и столбца, на пересечении которых он стоит, делает нулевыми.

program test;

 uses
   crt;

 var
   a:array [1..15, 1..15] of integer;
   max,Imax,Jmax:integer;
   i,j,n,m:integer;

 begin
   clrscr;
   randomize;

   write('Input NxM:');
   readln(n,m);

   for i:=1 to n do
     begin
       for j:=1 to m do
         begin
           a[i,j]:=random(21)-10;
           write(a[i,j]:7);
         end;
       writeln;
     end;

   max:=a[1,1];
   for i:=1 to n do
     for j:=1 to m do
       if max<a[i,j] then
         begin
           max:=a[i,j];
           Imax:=i;
           Jmax:=j;
         end;

   writeln;
   writeln('max=A[',Imax,',',Jmax,']=',max);
   writeln;

   for i:=1 to n do
     for j:=1 to m do
       begin
         a[Imax,j]:=0;
         a[i,Jmax]:=0;
       end;

   for i:=1 to n do
     begin
       for j:=1 to m do
         write(a[i,j]:7);
       writeln;
     end;

   readln;

 end.

[k0tone]

1) Составить программу, которая определяет в классе самого высокого и самого легкого учеников и выводит на экран их фамилии, вес и рост.

program test;

 uses
   crt;

 type
   anketa = record
     name: string;
     lastname: string;
     middlename: string;
     height: real;
     weight: real;
   end;

 var
   student: array [1..5] of anketa;
   maxHeight,minWeight:real;
   i,k,l:integer;

 begin
   for i:=1 to 5 do
     begin
       writeln('Input info for ',i,' student:');
       writeln('Input lastname:');
       readln(student[i].lastname);
       writeln('Input name:');
       readln(student[i].name);
       writeln('Input middlename:');
       readln(student[i].middlename);
       writeln('Input height:');
       readln(student[i].height);
       writeln('Input weight:');
       readln(student[i].weight);
       clrscr;
     end;
   for i:=1 to 5 do
     begin
       write(student[i].lastname);
       write(' ',student[i].name);
       write(' ',student[i].middlename);
       write(' ',student[i].height:4:2);
       write(' ',student[i].weight:4:2);
       writeln;
     end;

   maxHeight := student[1].height; k:=1;
   minWeight := student[1].weight; l:=1;
   for i:=1 to 5 do
     begin
       if maxHeight<student[i].height then
         begin
           maxHeight := student[i].height;
           k := i;
         end;
       if minWeight>student[i].weight then
         begin
           minWeight := student[i].weight;
           l := i;
         end;
     end;

   writeln;
   writeln(student[k].lastname,' ',maxHeight:1:2,' ',student[k].weight:1:2);
   writeln(student[l].lastname,' ',student[l].height:1:2,' ',minWeight:1:2);

   readln;

 end.

P.S. вводишь по очереди информацию о пяти студентах, где height - рост, weight - вес.