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

[baron]

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

[Altair]

Да, так в чем у вас вопрос, уважаемый ?

FAQ -> массивы, матрицы

[baron]

Помогите написать программу.

[volvo]

Поможем, только ЗА тебя ее писАть никто не будет... Ты покажи, как пытался сделать, есть надо - попробуем исправить...

[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

[Altair]

Олег, тя чо пред динамические массивы использовать

да, меня прет потому что так удобно!

А так имхо только усложняешь задачу

Если введение динамического массива для тебя усложнение то .... промолчу

Да к тому же учитывая то, что автор ничего сам не хочет делать, усложниение вполне оправданно!

[klem4]

Если введение динамического массива для тебя усложнение то .... dry.gif промолчу blum.gif

для мне нет, а вот для человека который в прошлую пятницу скажем прослушал первую лекцию по теме "Массивы" вполне возможно ... Олег ты тут не прав

Сообщение отредактировано: klem4 - 21.11.2005 22:58

[volvo]

klem4,
человек который

в прошлую пятницу скажем прослушал первую лекцию по теме "Массивы"

должен перечитать ее еще раз, и попытаться решить задание самостоятельно. Пусть будет неправильно, пока сам не обожжешься - ничего не запомнишь со слов других. Если он этого не делает - он либо лентяй, либо... Хорошо, пусть будет лентяй.

[Altair]

и вообще, лекцию надо слушать а не прослушивать!

М

Как символично наблюдать в теме флуд и оффтоп с участием 2-х модеров и админа Altair