Подсчитать сумму положительных элементов массива,кратных 3 - Pascal ABC

  1. Задан массив из 12 целых чисел.Подсчитать сумму положительных элементов массива,кратных 3.


textual

Код к задаче: «Подсчитать сумму положительных элементов массива,кратных 3 - Pascal ABC»

const N=12;
var a:array[1..N] of integer; i,b:integer;
begin
b:=0;
//заполнение массива
for i:=1 to N do begin
writeln('введите ',i,'-ый элемент');
readln(a[i]);
end;
//обработка массива
for i:=1 to N do
if (a[i]>=0) and (a[i] mod 3 = 0) then b:=b+a[i];
writeln('ответ - ',b);
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.071 из 5



Похожие ответы
  1. Вычислить сумму ряда

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

  1. 34. Найти сумму положительных целых чисел, меньших 100

  1. Дано числовую последовательность (100, 97, 94, ...). Найти сумму 30-ти членов последовательности чисел

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. помогите написать программу на pascal ABC а) В строке удалить символ двоеточие и подсчитать количество удаленных символов. б) Выбрав любое базовое слово по своему усмотрению, составить программ, которая из базового слова получает 4 новых слов, используя операцию сцепления и команду Copy.

  1. Дан файл f, содержащий сведения о студентах: ФИО, группа, оценки за экзамены. Вывести в файл f1 и на экран сведения о студентах-хорошистах; подсчитать их количество. Использовать при решении подпрограммы. Предусмотреть проверку открытия файла.

  1. С клавиатуры задается последовательность чисел. Ввод прекращается по отрицательному числу в задаваемой последовательности. Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Определить количество таких чисел.

  1. Дан Одномерный числовой массив. Определить сумму элементов массива, значения которых кратны 3, использовать while и for нужно прям очень срочно, выручите кто очень хорошо разбирается, для вас это за минуту пишется я уверен

  1. Дано матрицу размером 4х4. Найти сумму элементов в тех строках которые содержат хотя бы один отрицательный элемент