Задачи по Паскалю Создать массив на 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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
амаеру09.02.2020 17:32
-
vaxaxa171721.01.2020 12:35
-
гикник4508.04.2020 05:21
-
akovlevavika44424.10.2022 17:50
-
tratatya26.12.2021 11:12
-
Danila24089925.02.2022 20:57
-
Шоколадка29014.05.2020 02:51
-
PooКякя10.10.2020 09:20
-
Daniil226325.01.2021 02:43
-
PutinVodka28.06.2020 12:02
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.