РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ ДАЮ 50 БАЛЛОВ!!!!!!
2. Найти сумму положительных элементов массива,
содержащего 7 элементов. Элементы вводятся с
клавиатуры.
3. Найти наименьший элемент одномерного массива,
состоящего из 12 элементов и сформированного
случайными числами, не превосходящими 10
Ответы
Ответ:
Задача номер два:
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.