Массив умножить на максимальный элемент


Даны целые числа A(k). Все члены последовательности, которые находятся перед первым максимальным элементом, умножить на максимальный элемент.

Program massiv;
const n=10;
var
A:array [1..n] of integer;
i,k:integer;
begin
writeln();
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
end;
writeln();
k:=1;
for i:=2 to n do
if a[k]<a[i] then k:=i;
for i:=1 to n do begin
if i>k then a[i]:=a[i]*a[k];
write(a[i],’ ‘);
end;
end.

Теги: , , ,

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


Дан массив целых чисел. Если в массиве сумма всех элементов положительна, отнять от каждого элемента 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.

Теги: , , , ,

«1234567891011121314151617181920»