Задачи по Паскалю,помогите пожалуйста. 1 Создать массив ** 10 элементов, заполнить его...

Question

Задачи по Паскалю,помогите пожалуйста. 1 Создать массив на 10 элементов, заполнить его с клавиатуры. Вывести на экран максимальный и минимальный элементы массива. 2 Создать массив на 10 элементов, заполнить его с клавиатуры положительными и отрицательными элементами. Вывести на экран количество отрицательных элементов. 3 Создать массив на 10 элементов. Вывести на экран количество сумму квадратов элементов созданного вами массива.

Answer 1

1)

var a: array [1..10] of integer;

i, max, min: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   max := a[1];

   min := a[1];

   for i := 2 to 10 do

   begin

       if a[i] < min then min := a[i];

       if a[i] > max then max := a[i];

   end;

   

   writeln();

   writeln('Максимальный эл.: ', max);

   writeln('Минимальный эл.: ', min);

end.

2)

var a: array [1..10] of integer;

i, negCounter: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   negCounter := 0;

   for i := 1 to 10 do

   begin

       if a[i] < 0 then inc(negCounter);

   end;

   

   writeln();

   writeln('Кол-во отрицательных: ', negCounter);

end.

3)

var a: array [1..10] of integer;

i, sum: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   sum := 0;

   for i := 1 to 10 do

       sum := sum + sqr(a[i]);

   

   writeln();

   writeln('Сумма квадратов элементов: ', sum);

end.

Comments

чел можешь тоже помочь написать прогу и блок- схема?