Помощь - Поиск - Пользователи - Календарь
Полная версия: Записи. определить клиента имеющего максимальный вклад в банке.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Credo
Записи. определить клиента имеющего максимальный вклад в банке.
Программа работает но не правильно не выводит ничего.

Во что Написал
program bank;
uses crt;
const n=3;
type
info=record
str:string;
naz:string;
fio:string;
dohod:string;
end;
var
mas:array[1..n] of info;
j,i:integer; f:string;
begin
for i:=1 to n do
with mas[i] do
begin
clrscr;
write('Strana: '); readln(str);
write('Nazvanie banka: '); readln(naz);
write('Klient: '); readln(fio);
write('Dohod: '); readln(dohod);
end;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if mas[i].fio=mas[j].fio then f:=mas[i].fio;
end;
writeln(f);
readln;
end.(
f);
end.
Freedom
максимальный вклад это максимальный доход??
Lapp
Сделай вот так:
max:=1;
for i:=2 to n do if mas[i].dohod>mas[max].dohod then max:=i;
WriteLn(mas[max].fio);

Credo
Цитата
максимальный вклад это максимальный доход??

Только максимальный вклад

Цитата
Сделай вот так:
max:=1;
for i:=2 to n do if mas[i].dohod>mas[max].dohod then max:=i;
WriteLn(mas[max].fio);

smile.gif Спасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.