Найти список людей, которые взяли кредит и не заплатили и в общем сколько они должны

[AliMauitov]

Взяв с банка кредит, список людей которые заплатили, и которые не заплатили стоят в списке в разброс,найти список людей которые не заплатили и вообщем сколько они должны

[Stilet]

Твои попытки увидеть можно?

[AliMauitov]

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

Твои попытки увидеть можно?

я новичок......

[Stilet]

Т.е. даже не пожелаешь ппробовать самостоятельно сделать? Жаль. Ладно.

type mans=record fio:string; dolg:real; end;
var a:array[1..1000] of mans; i:integer;
begin
 for i:=1 to 1000 do readln(a[i].fio,a[i].dolg);
 for i:=1 to 1000 do if a[i].dolg<>0 then writeln(a[i].fio);
 readln;
end.

Это набросок. Не копипасти, как говорится, сам виноват будешь )

[AliMauitov]

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

Т.е. даже не пожелаешь ппробовать самостоятельно сделать? Жаль. Ладно.

type mans=record fio:string; dolg:real; end;
var a:array[1..1000] of mans; i:integer;
begin
 for i:=1 to 1000 do readln(a[i].fio,a[i].dolg);
 for i:=1 to 1000 do if a[i].dolg<>0 then writeln(a[i].fio);
 readln;
end.

Это набросок. Не копипасти, как говорится, сам виноват будешь )

просто мы еще не проходили это, это так и пишется? , думал длинным будет

[Stilet]

Зачем мне писать длинно, если у тебя все равно нет ни базиса ни мотивации делать?
Самое простое - накрой преподу поляну. Преподы тоже кушать хотят.

[min@y™]

и которые не заплатили стоят в списке в разброс

дай список.