Преобразовать массив чисел


Дан массив целых чисел. Если в массиве сумма всех элементов положительна, отнять от каждого элемента 1, если отрицательна — оставить массив без изминения.

Program minus1;
const n=10;
var
A:array [1..n] of integer;
i,sum:integer;
begin
writeln();
sum:=0;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
sum:=sum+a[i];
end;
writeln();
if sum>0 then
for i:=1 to n do a[i]:=a[i]-1;
for i:=1 to n do write(a[i],’ ‘);
end.

Теги: , , , ,

Поближе к началу массива


Дан массив целых чисел. Найти элемент с максимальным или с минимальным значением, который находится ближе к началу массива.

Program beginmax;
const n=10;
var
A:array [1..n] of integer;
i,nmin,nmax:integer;
begin
writeln();
nmin:=1;
nmax:=1;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
if a[nmin]>a[i] then nmin:=i;
if a[nmax]<a[i] then nmax:=i;
end;
writeln();
if nmax>nmin then writeln(’min’);
if nmin>nmax then writeln(’max’);
if nmax=nmin then writeln(’vsw elementi ravni’);
end.

Теги: , , , ,

«1234567891011121314151617181920»