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

nikitta76 nikitta76    2   15.04.2020 21:22    1

Ответы
Kaska322 Kaska322  13.10.2020 07:56

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика