
28.11.2015, 22:52
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Потому что cena тоже должна быть членом записи.
Код:
Program one;
{APPTYPE CONSOLE}
uses
SysUtils;
type
computer=record
proc,ozy,pzy,vich:string[15];
cena : integer;
end;
var
a:array[1..20] of computer;
n,i:integer;
begin
write('kol-vo computerov: ');readln(n);
for i:=1 to n do
with a[i] do
begin
write ('proc: ');
readln(proc);
write ('ozy: ');
readln(ozy);
write ('pzy: ');
readln(pzy);
write ('vinch: ');
readln(vinch);
write ('cena(ozy,pzy,proc,vinch): ');
readln(cena);
end;
for i:=1 to n do
begin
with a[i] do
if cena<6000 then
writeln(proc,' ',ozy,' ',pzy,' ',vinch,' ');
end;
readln;
end.
ЗЫ. И еще руки оторвать за такое форматирование кода.
|