program Arrays;
var
input: array[Integer] of Integer;
i: Integer;
largestElement: Integer = 0;
smallestElement: Integer = 999;
smallestElementPosition: Integer = 18;
begin
Randomize;
for i:=0 to 18 do
input[i] := Random(700);
writeln('Весь массив:');
for i:=0 to 18 do
begin
writeln(i, ': ', input[i]);
if largestElement < input[i] then
largestElement := input[i];
if smallestElement > input[i] then
begin
smallestElement := input[i];
smallestElementPosition := i;
end;
end;
writeln('Наибольший элемент массива:', largestElement);
writeln('Позиция наименьшего элемента:', smallestElementPosition);
end.
Задача номер два:
program CountPositiveElements;
var
elements: array[Integer] of Integer;
sum: Integer = 0;
i: Integer;
begin
writeln ('Введите семь элементов.');
for i:= 0 to 6 do
begin
write (i+1, ':');
ReadLn(elements[i]);
end;
for i:=0 to 6 do
begin
if elements[i] > 0 then
sum := sum + elements[i];
end;
writeln('Сумма положительных элементов массива: ', sum)
end.
Задача номер три:
program MinElementFinder;
var
minElement: Integer;
input: array[Integer] of Integer;
i: Integer;
begin
Randomize;
for i:= 0 to 11 do
input[i] := random(10);
minElement := input[11];
write('Случайные элементы массива:');
for i:= 0 to 10 do
begin
write(input[i],',');
if minElement > input[i] then
minElement := input[i];
end;
writeln(input[11]);
writeln('Из них наименьший элемент:', minElement)
end.