Информатика задача в паскале. Дан целочисленный массив из 12 элементов, вводимых пользователем с клавиатуры.

Все о сайтах начиная от их проектирования заканчивая их продвижением


Дата публикации:

Информатика задача в паскале. Дан целочисленный массив из 12 элементов, вводимых пользователем с клавиатуры.

73518726

Информатика задача в паскале. Дан целочисленный массив из 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. В конце программа выводит результат - сумму положительных элементов массива.


Аренда автокрана 25 тонн Москва с оперативной подачей
Аренда тепловых устройств в Москве
Белое ЗУ LDNio DL-213 2100мА для iPhone 4/iPad/micro
Доверенность на таможенное оформление: важность
Генератор АД-30-Т400
Инновации в использовании 3D-печата для создания бытовых помещений в современных офисах
Инновационные методы управления отходами на строительстве высотных зданий
Кадастровые работы в Магнитогорске
Как сделать сайт быстро и недорого?
Настройки качества изображения God of War
Онлайн аниме Бесконечные небеса новое
Пржевальское: сельское хозяйство
Продвижение через видео
Производство металлической мебели под ключ
Рулетка в чате видео
SAP CRM для медицинских учреждений
Синергия Google Ads и SEO: масштабирование бизнеса и продаж
Современные технологии и подходы в строительстве: Инновации и тенденции
Строительство: основные принципы и практические рекомендации
Строительство: основы, технологии и практическое применение
В Москве есть ли CASUAL Second Hand в шопинг-центрах?
VDSina: Хостинг с оптимальной ценой
 Page 1 of 17  1  2  3  4  5 » ...  Last » 
онлайн рулетка видеочат
Анимированный фон