Одномерные массивы
const n=30; {ввод вывод}
type TIndex=1..n;
TVector=array[tindex] of integer;
Procedure create(var x:TVector; var k:TIndex);
var i:Tindex;
begin
write('vvedite kolichestvo chisel '); readln(k);
writeln('vvedite ',k,' chisel');
for i:=1 to k do read(x[i]);
readln;
end;
procedure print (const x:Tvector; k:Tindex);
var i:TIndex;
begin
writeln('massiv');
for i:=1 to k do
write(x[i],' ');
writeln;
end;
function SumP(const x:TVector;k:TIndex): real;
{сумма положительных элементов массива}
var S:real;i:Tindex;
begin
S:=0;
For i:=1 to k do
begin
if (x[i]>0) then
S:=S+x[i];
end;
SumP:=S;
end;
procedure maxV(const x:TVector;k:TIndex);
{нахождение максимального элемента массива}
var i:TIndex;max:real;
begin
max:=x[1];
for i:=2 to k do
begin
if max end;
writeln('maksimalnoe 4islo massiva=',max:0:0);
end;
{главная программа}
var x:TVector; k:TIndex;S:real;
begin
Create(x,k);
S:=SumP(x,k);
if S<>0 then writeln('summa polojitelnix 4isel massiva=',S:0:0)
else writeln('net takix 4isel');
maxV(x,k);
Print(x,k);
readln(k);
end.

Случайные файлы

Файл
Readme.txt
readme.txt
ReadMe.txt
questions.txt
README.TXT




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.