Const n = 1000; var massiv : array[1..n] of integer; countOfElements, maxElement, i, m, j : integer; begin write('Введите количество элементов массива: '); readln(countOfElements); writeln('Введите элементы массива'); for i := 1 to countOfElements do read(massiv[i]); writeln(); maxElement := massiv[1]; for i := 1 to countOfElements do if (maxElement < massiv[i]) then maxElement := massiv[i]; m := countOfElements; i := 1; while i <= m do if massiv[i] = maxElement then begin for j := i to countOfElements - 1 do massiv[j] := massiv[j+1]; m := m - 1; end else i := i + 1; massiv[countOfElements] := 0; write('Максимальный элемент: '); writeln(maxElement); for i := 1 to countOfElements do write(massiv[i]:4); end.
{ s(трапеции) = ((a+b)/2)*h; } uses crt; var a, b, h: Integer; (Real) s: Real; begin WriteLn('Введите а: ',a);ReadLn(a); WriteLn('Введите b: ',b);ReadLn(b); WriteLn('Введите h: ',h);ReadLn(h); s:= ((a+b)/2)*h; WriteLn('S = ', s); ReadLn; end. Если же а и б должны быть обязательно меньше h, то: if (a < h) and (b < h) then begin WriteLn('Введите а: ',a);ReadLn(a); WriteLn('Введите b: ',b);ReadLn(b); WriteLn('Введите h: ',h);ReadLn(h); s:= ((a+b)/2)*h; WriteLn('S = ', s); ReadLn; end; else begin WriteLn('Основания не меньше h!'); ReadLn; end;
n = 1000;
var
massiv : array[1..n] of integer;
countOfElements, maxElement, i, m, j : integer;
begin
write('Введите количество элементов массива: '); readln(countOfElements);
writeln('Введите элементы массива');
for i := 1 to countOfElements do
read(massiv[i]);
writeln();
maxElement := massiv[1];
for i := 1 to countOfElements do
if (maxElement < massiv[i]) then maxElement := massiv[i];
m := countOfElements;
i := 1;
while i <= m do
if massiv[i] = maxElement then
begin
for j := i to countOfElements - 1 do
massiv[j] := massiv[j+1];
m := m - 1;
end
else
i := i + 1;
massiv[countOfElements] := 0;
write('Максимальный элемент: '); writeln(maxElement);
for i := 1 to countOfElements do
write(massiv[i]:4);
end.