Здрасте))выручайте)1ну прогу надо для отчета не могу ни как догнать:)помогите:)

[MrMorozko]

2 блок –задания по теме «Файлы»

Записать в файл прямого доступа N действительных чисел. Найти наибольшее из значений модулей компонентов с нечетными номерами.

5 блок – задания по теме «Подпрограммы»

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

[NSvirus]

пиши: 4451три7351

[MrMorozko]

Сообщение от NSvirus

пиши: 4451три7351

это что такое?!

[sheka]

обращайся, помогу в течении часа! ася 255507394
или в ЛС

[Gongled]

Если я правильно понял второе задание:

program pr;
uses CRT;
var
i, n, max : integer;
input : text;

begin
clrscr;

write('Введите количество чисел: ');
read(n);

assign(input,'C:\input.txt');
rewrite(input);

for i:=1 to n do
begin
    write('Введите ',i,' число: ');
    read(n);
    write(input,n:5);
    
    if i = 1 then max := abs(n);

    if (i mod 2=1) and (abs(n) > max) then max := abs(n);
end;

close(input);
write('Результат: ',max);

end.

Касаемо пятой задачи:
1. Площадь полной поверхности или боковой?
2. Какой параллелепипед то?

P.S. Не понимаю, зачем договариваться в ICQ (или в привате), если на написание программы уйдёт всего 5 минут.

[Nightt]

помогите пожалуйста

Дан двумерный массив, содержащий N*N элементов. Написать подпрограмму, выполняющую замену нулями всех элементов, расположенных на главной диагонали матрицы.

буду очень благодарен.

[sheka]

for i:=1 to n do a[i,i]:=0;
если хочешь полностью - ася 255507394

P.S. Не понимаю, зачем договариваться в ICQ (или в привате), если на написание программы уйдёт всего 5 минут.

за тем, что человеку предоставляется возможность выбрать то, что ему легче - или заплатить 25 рублей, или открыть книгу.

[MrMorozko]

Огромное спасибо за помощь!)

[__STDC__]

Сообщение от sheka

за тем, что человеку предоставляется возможность выбрать то, что ему легче - или заплатить 25 рублей, или открыть книгу.

для 25 рублей есть раздел фриланс.. если честно, начинают бесить такие посты... "стучи в аську", etc. Скоро форум будет только из такого состоять...

P. S. прощу прощения за оффтоп

[sheka]

полностью согласен с текстом твоего сообщения!(но не с данным его применением)
хотел бы добавить, что ФОРУМ предназначен ДЛЯ ОБЩЕНИЯ, а не для того чтобы кому-то решать задачи. если человек просит о ПОМОЩИ - надо ему подсказать, показать путь правильного решения, а НЕ решать задачу ПОЛНОСТЬЮ. именно для этого есть фриланс.
(не хочу никого обидеть, но..) в таких случаях предлагаю никогда не давать полного решения, даже если вас об этом попросят, потому что леньтяй он и в африке леньтяй, а от такой "помощи" он не получит пользы.
если честно, начинают бесить такие посты, в которых просят решить элементарную задачу, которая описана в любой книге.

P. S. тоже прошу прощения за оффтоп