Статистика
Всего в нашей базе более 4 324 894 вопросов и 6 440 811 ответов!

Найти сумму положительных элементов линейного массива целых чисел. Размерность массива - 10. Заполнение массива осуществить с клавиатуры.

10-11 класс

Программу надо написать через МАССИВЫ!!!
Помогите пожалуйста, срочно!!!)

Krot74 28 окт. 2013 г., 9:37:59 (5 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Anastasiya314
28 окт. 2013 г., 11:48:20 (5 лет назад)

var
  i,s:integer;
  a:array[1..10]of integer;
begin
writeln('Введите элементы массива:');
for i:=1 to 10 do
  begin
  readln(a[i]);
  if a[i]>0 then s:=s+a[i];
  end;
writeln('Сумма положительных: ',s);
end.

Ответить

Другие вопросы из категории

Переписать,

исправив ошибки в программе:


Program
A;

Пожалуйста помогите, заранее спасибо:)

Текст содержит 3 стр. по 50 строк, по 20 символов. Алфавит= 128 символам. Найти объем сообщение?

Читайте также

1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на

нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.

2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов

3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.

1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7

элементов.Найти колличество четных положительных элементов.

3)Дан массив из 6 элементов.Найти произвдение положительных из них.

составьте программу,которая запрашивает значение элементов одномерного массива A,состоящего из 10 элементов,формирует и выводит на экран в строку данный

массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.

Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать

только элементы кратные 2

3)Найти сумму первых пяти элементов

Составить программу Дан массив целых чисел , размерность -12

1) Заполнение массива производить случайными числами из диапозона [-10;35]

2)Вывести на печать только положительные элементы

3)Найти количество отрицательных элементов

Составить программу

Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .

Help!!! Дан массив целых чисел, состоящий из 10 элементов.Заполнить его с клавиатуры. Найти:

-Удвоенную сумму положительных элементов;

-Удалить все четные элементы массива.



Вы находитесь на странице вопроса "Найти сумму положительных элементов линейного массива целых чисел. Размерность массива - 10. Заполнение массива осуществить с клавиатуры.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.