schoolМатематика
verifiedРешено AI
Решения задач по Pascal для школьников
help_outlineУсловие задачи
lightbulbКраткий ответ
Здесь представлены решения школьных задач по программированию на языке Pascal. Примеры включают нахождение суммы элементов массива и произведения элементов, кратных 3.
Подробное решение
Ниже представлены решения задач на языке программирования Pascal, который чаще всего используется в школьной программе. Решения оформлены так, чтобы их было удобно переписать в тетрадь.
Задача №1. Нахождение суммы элементов массива.
program Task1;
var
A: array of integer;
n, i, sum: integer;
begin
write('Введите размер массива: ');
readln(n);
setlength(A, n);
sum := 0;
for i := 0 to n - 1 do
begin
write('A[', i, '] = ');
readln(A[i]);
sum := sum + A[i];
end;
writeln('Сумма элементов: ', sum);
end.
Задача №2. Произведение элементов, кратных 3, в случайном массиве на интервале \([-18, 30]\).
program Task2;
var
A: array of integer;
n, i: integer;
p: real;
begin
randomize;
write('Введите размер массива: ');
readln(n);
setlength(A, n);
p := 1;
writeln('Сгенерированный массив:');
for i := 0 to n - 1 do
begin
A[i] := random(49) - 18; { Интервал [-18, 30] }
write(A[i], ' ');
if A[i] mod 3 = 0 then
p := p * A[i];
end;
writeln;
writeln('Произведение элементов, кратных 3: ', p);
end.
Задача №3. Среднее арифметическое элементов с нечетными номерами.
Примечание: в программировании обычно считается, что первый элемент имеет индекс 0 (четный) или 1 (нечетный). В школьной программе чаще считают от 1.
program Task3;
var
A: array of integer;
n, i, count: integer;
sum: real;
begin
write('Введите размер массива: ');
readln(n);
setlength(A, n);
sum := 0;
count := 0;
for i := 0 to n - 1 do
begin
write('A[', i + 1, '] = ');
readln(A[i]);
{ Если номер элемента (i+1) нечетный }
if (i + 1) mod 2 <> 0 then
begin
sum := sum + A[i];
count := count + 1;
end;
end;
if count > 0 then
writeln('Среднее арифметическое: ', sum / count)
else
writeln('Элементы не найдены');
end.
Задача №4. Сумма элементов с четными номерами, произведение отрицательных, количество нечетных.
program Task4;
var
A: array of integer;
n, i, sum_even, count_odd: integer;
prod_neg: real;
begin
write('Введите размер массива: ');
readln(n);
setlength(A, n);
sum_even := 0;
prod_neg := 1;
count_odd := 0;
for i := 0 to n - 1 do
begin
write('A[', i + 1, '] = ');
readln(A[i]);
{ 1. Сумма элементов с четными номерами }
if (i + 1) mod 2 = 0 then
sum_even := sum_even + A[i];
{ 2. Произведение отрицательных элементов }
if A[i] < 0 then
prod_neg := prod_neg * A[i];
{ 3. Количество нечетных по значению элементов }
if A[i] mod 2 <> 0 then
count_odd := count_odd + 1;
end;
writeln('Сумма элементов с четными номерами: ', sum_even);
writeln('Произведение отрицательных: ', prod_neg);
writeln('Количество нечетных элементов: ', count_odd);
end.