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