Работа с массивами Опции

[baron]

Информация о совокупном доходе и сумме налогов за 12 месяцев работника некоторого предприятия собрана в двух массивах:
а) определить среднегодовой совокупный доход.
б) создать новый массив, состоящий из чисел, означающих реально полученную заработную плату за каждый месяц.

[Altair]

не ну показать можно... что то примерно так

Type
 TElem = Integer;
 ArrType = array[1..1] of TElem;
 Arr = ^ArrType;
const
 SizeOfArray:integer = 12;
 dohod:telem= 0;
var
 a,b,c:Arr;
 i:integer;
begin
 GetMem(a,SizeOfArray*SizeOf(TElem));
 GetMem(b,SizeOfArray*SizeOf(TElem));
 GetMem(c,SizeOfArray*SizeOf(TElem));
 writeln(' enter a..');
 for i:=1 to 12 do readln(a^[i]);
 writeln(' enter b..');
 for i:=1 to 12 do readln(b^[i]);
 for i:=1 to 12 do begin inc(dohod,a^[i]-b^[i]); c^[i]:=a^[i]-b^[i] end;
 writeln('dohod = ',dohod);
 for i:=1 to 12 do write(c^[i], ' ' );
 FreeMem(a,SizeOfArray*SizeOf(TElem));
 FreeMem(b,SizeOfArray*SizeOf(TElem));
 FreeMem(c,SizeOfArray*SizeOf(TElem));
 readln;
end.

интерфейс сам сделаешь...

М

Олег, тя чо пред динамические массивы использовать ? Людям ведь это не нужно .. если бы нужно было, они бы написали ... А так имхо только усложняешь задачу, хотя динамические конечно круче обычных ))) klem4