Хотел бы научиться

[rezak91]

Сначала хочу поздароваться со всем Клубом ПРОграммистов
Вот собственно моя проблема, и она для меня очень большая
Сегодня преподавательница дала РГР по программированию, и дала 1 день ее решить, сказав что она очень легкая, но для меня она очень трудная
немог бы мне кто помочь решить задания...
Язык Турбо Паскаль

1)Дана целочисленная прямоугольная матрица, найти сумму элементов всех строк, не содержащих не одного нулевого элемента. (оформить в виде функции)
2)Организовать массив записей, который содержит информацию о соревнованиях спортсменов троеборцев (ФИО, время на 1км, прыжок в высоту, прыжок в длину). определить лучшего спортсмена по прыжкам в длину.

[rezak91]

Мне некто не поможет?
Хотяб с одной задачкой выручите, сам попробую остальные 5 как нить то написать ((

[profi]

Хотяб с одной задачкой выручите, сам попробую остальные 5 как нить то написать ((

Ну если ты можешь дописать остальные, начни хотя бы первую, а потом выложи, что получилось.

[rezak91]

program zadacha2;
var i,n:integer;
a:array[1..99] of integer;
begin;
readln(n);
for i:=1 to n do
writeln ('vvedite FIO, vrema 1 km, prijok v visotu, prijok v dlinu');
readln (a[i].fio, a[i].km, a[i].height, a[i].long);
best:=a[1].long;
bestID:=1;
for i:=2 to n do
begin
if a[i].long>best
then begin
best:=a[i].long;
bestID:=i;
end;
end;
writeln(a[i].fio);
readln;
end.

вот тут ошибка, почему и что делаю не так не понимаю... доведи пожалуиста до четкости, буду оч. признателен

[profi]

Что ты за левый код кинул? Где структура и т.д.?

[rezak91]

всмысле структура и т.д.?

[profi]

Ну данные ты в чем будешь хранить про каждого спортсмена? Нужно сделать примерно так:

  type
    sport = record
      fio : array[1..100] of char;
      vremya : integer;
      vysota : integer;
      dlina : integer;
    end;

    var
      mas : array[1..10] of sport;

[Z1000000]

program zadacha2;
type Troe = record
 FIO : String;
 km,height,long : Real
end;
var
 i,n:integer;
 a:array[1..99] of Troe;
 best : Real;
 bestID : Integer;
begin;
readln(n);
writeln ('vvedite FIO, vrema 1 km, prijok v visotu, prijok v dlinu');
for i:=1 to n do
 readln (a[i].fio, a[i].km, a[i].height, a[i].long);
best:=a[1].long;
bestID:=1;
for i:=2 to n do
begin
if a[i].long > best then
 begin
 best:=a[i].long;
 bestID:=i;
 end;
end;
writeln(a[bestID].fio);
readln;
end.

[Z1000000]

Program Zadacha4;
const N = 10;

function SumMatrix( aMatrix : array[0..N-1,0..N-1] of Integer) : Integer;
var
 SumStr : Integer;
 i,j : Integer;
 aSum : Integer;
 begin
  aSum := 0;
  for i:=0 to N-1 do
   begin
   SumStr := 0;
   for j:=0 to N-1 do
    begin
    if aMatrix[i,j] = 0 then begin SumStr := 0; break; end;
    SumStr := SumStr + aMatrix[i,j];
    end;
   aSum := aSum + SumStr;
   end;
   SumMatrix := aSum;
 end;
 
var
 i,j : Integer;
 Matrix : array[0..N-1,0..N-1] of Integer;
begin
cls;
// Input
for i:=0 to N-1 do
 for j:=0 to N-1 do
  Matrix[i,j] := Random(100);

// Output
for i:=0 to N-1 do
 begin
 for j:=0 to N-1 do
  write ( Matrix[i,j], ' ');
 writeln;
 end;

writeln ('Сумма элементов строк не содержащих нули : ', SumMatrix(Matrix)  );
  
end.

[rezak91]

Сообщение от Z1000000

program zadacha2;
type Troe = record
 FIO : String;
 km,height,long : Real
end;
var
 i,n:integer;
 a:array[1..99] of Troe;
 best : Real;
 bestID : Integer;
begin;
readln(n);
writeln ('vvedite FIO, vrema 1 km, prijok v visotu, prijok v dlinu');
for i:=1 to n do
 readln (a[i].fio, a[i].km, a[i].height, a[i].long);
best:=a[1].long;
bestID:=1;
for i:=2 to n do
begin
if a[i].long > best then
 begin
 best:=a[i].long;
 bestID:=i;
 end;
end;
writeln(a[bestID].fio);
readln;
end.

чтот он невычесляет, или я ввожу неправильно. проверь пжлста