Дата публикации:
Информатика задача в паскале. Дан целочисленный массив из 12 элементов, вводимых пользователем с клавиатуры.
Информатика задача в паскале. Дан целочисленный массив из 12 элементов, вводимых пользователем с клавиатуры.
Программа на языке Паскаль для решения данной задачи может выглядеть следующим образом:
program SumOfPositiveElements;
var
a: array[1..12] of integer;
i, sum: integer;
v: integer;
begin
sum := 0;
// Ввод элементов массива с клавиатуры
for i := 1 to 12 do
begin
write('Введите элемент массива a[', i, ']: ');
readln(a[i]);
end;
// Ввод значения v
write('Введите значение v: ');
readln(v);
// Вычисление суммы положительных элементов массива
for i := 1 to 12 do
begin
a[i] := a[i] - v * 3;
if a[i] > 0 then
sum := sum + a[i];
end;
// Вывод результата
writeln('Сумма положительных элементов массива: ', sum);
end.
В данной программе сначала объявляется массив a
из 12 элементов и переменные i
, sum
, v
. Затем происходит ввод элементов массива с клавиатуры и значения v
. Далее происходит вычисление суммы положительных элементов массива с помощью цикла for
. Внутри цикла каждый элемент массива a
изменяется по формуле a[i] = a[i] - v * 3
, а затем проверяется, является ли он положительным. Если да, то его значение добавляется к переменной sum
. В конце программа выводит результат - сумму положительных элементов массива.
Геометрия 7 класс: домашнее задание
Геометрия 7 класс: основные понятия и правила
Геометрия 7 класс. Помогите решить дз.
Красноухие черепахи: любят ли они сметану?
Кредит на образование: стоит ли его брать?
Отношения с матерью. Как это пережить?
Почему мужики стали тряпками?
Политика Петра 1: новые подходы к управлению Россией
Полнейшее выгорание, что с ним делать?
Полномочия Бога: мстительность и милосердие
Процентам подачи и разлива напитков в больницах!
Tecno Pova 5: как включить подсветку на задней панели
The Dragon of Kojima: Who is He?
The Importance of Building Materials in Construction
ЮрFact-MSK
"За что можно любить свою жизнь?"
За что мы все так любим наггетсы?
За что платить не нужно?
За что так не любят власть?
Заголовок: "Чем наши яйца отличаются от турецких?"
Заголовок: Чем не стоит увлекаться?
Заголовок: Главные факторы климата
Заголовок: Глюки - какие они и с чем их можно сравнить?
Заголовок: "Как жалею о добрых делах, которые сделал"
Заголовок: Как проводят люди последний день года?
Заголовок: Как проявить доброту и заботу от души?
Заголовок: Как выбрать правильный ответ на вопрос?
Заголовок: Почему узкий кругозор лучше, чем широкий?
Заголовок: Почему в Африке голодают йети, а не те
Заголовок: Путешествие в загадочный город Атлантида
Заголовок: "Путешествие во сне: управление самолетом"
Заголовок: Сын мастурбирует. Что делать?
Заголовок: "Сыпь на руках: причины и способы лечения"
Заголовок: "Звезда сцены: певица и актриса Леди Гага"
Page 1 of 17 1 2 3 4 5 » ... Last »