Question

РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ ДАЮ 50 БАЛЛОВ!!!!!!


2. Найти сумму положительных элементов массива,
содержащего 7 элементов. Элементы вводятся с
клавиатуры.
3. Найти наименьший элемент одномерного массива,
состоящего из 12 элементов и сформированного
случайными числами, не превосходящими 10

Answer 1

Ответ:

Задача номер два:

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.