Prover'te ne polu4aeetsya pomogite plzZZ

07.12.2010, 22:31. Показов 338. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
const n=5;
type info=record
str: string;
naz: string;
fio: integer; end;
var mas:array[1..n] of info; j,f,i:integer;  a:str;  h:naz; c:fio;
begin
clrscr ;
writeln('strana'); readln(a);
writeln('nazvanie banka'); readln(h);
writeln('skolko klientov'); readln(c);
end;
begin
for i:= 1 to n-1 do
for j:= i+1 to n do
if mas[i].c>mas[j].c then f:=mas[i].c else f:=mas[j].c; end;
writeln('u etogo banka bolwe vsego klientov',f);
readkey; end.

opredelit' bank v kotorom MAXIMALNOE kolli4estvo klientov

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.12.2010, 22:31

Ответы с готовыми решениями:

pomogite
помогите паж-та:

Pomogite
Y menya est' 2 table. V odnom 100 record v drygom 89. Prichem v oboih table est 2 fields kotorue...

Pomogite...
Ya ispolsyy ety liniy coda c DTS package (VB ActiveX): DTSDestination('USER').insert.value Cho v...

Pomogite chajniku!
U menja est tablica na 10.000 zapisej. Mne nado raskidat ee na 200 dbf'ov po 50 zapisej v kagdom....

	07.12.2010, 22:31

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.12.2010, 22:31

Помогаю со студенческими работами здесь

pomogite s voprosami
1. Сколько раз будет выведена *:for (int i = 0; i == 10; i++) cout << "*";2. Чему равно значение...

Pomogite 4ajniku
Delo takoe ja delaju bazu na MSaccess 2000. u menia est` dva textboxa odin imeet parametr time ...

pomogite s zaprosom
est tabliza, kotoraia sostoit is polei: 'url', 'category'(smallint), 'visits', 'date_in',...

Pomogite pojalusta
Rebyata vopshem u menya takoe del@ xachu sozdat sociali set v baze u menya TABEL users i TABLE...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх