Решите Задачу

  • Автор темы saimon1719
  • Дата начала
S

saimon1719

#1
program zad1;

uses
Windows;

{$APPTYPE CONSOLE}
const
N=10;
EPS=0.000001;
var
A:array [1..N] of real;
i,j,First,Second:integer;
Sum,Max:real;
cnt:integer;
begin
SetConsoleCP(1251);
SetConsoleOutputCp(1251);
writeln('введите элементы массива (макс. число 10)');
for i:=1 to N do
begin
writeln('Enter A[',i,']=');
readln(A);
end;
Sum:=0.0;
Max:=A[1];
First:=0;
Second:=0;
for i:=1 to N do
begin
if abs(A)>abs(Max) then Max:=A;
if A>0.0 then
begin
if First=0 then First:=i
else if Second=0 then Second:=i;
end;
end;
for i:=First to Second do Sum:=Sum+A;
writeln('Макс. элемент массива = ',Max:6:2);
writeln('Сумма = ',Sum:6:2);
cnt:=0;
for i:=1 to N do
begin
while abs(A-0.0)<EPS do
begin
inc(cnt);
for j:=i to N-1 do
begin
A[j]:=A[j+1];
end;
end;
end;
for i:=N downto N+1-cnt do A:=0.0;
for i:=1 to N do write(A:6:2,' ');
readln;
end.



В одномерном массиве, состоящем из п вещественных элементов, вычислить:
1) максимальный по модулю элемент массива;
2) сумму элементов массива, расположенных между первым и вторым положи-тельными элементами.
Преобразовать массив таким образом, чтобы элементы, равные нулю, располагались после всех остальных.


это сделано
Задача №1. Оформить решение задач (задача №1 работы №6) в виде подпрограммы функции. Привести решения этих задач различными способами, используя в качестве фактических параметров: параметры-значения, параметры-переменные и параметры-константы. Объясните различия.

Delphi програмирование
терь надо сделать функции, до пятницы,плиз