Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/29: Рейтинг темы: голосов - 29, средняя оценка - 4.83
В@люшк@
0 / 0 / 0
Регистрация: 11.05.2011
Сообщений: 35
#1

Найти сумму элементов массива, стоящих на четных местах. Подсчитать количество элементов, значения которых меньше 1

28.08.2012, 23:30. Просмотров 5274. Ответов 1
Метки нет (Все метки)

помогите пожалуйста решить задачку на паскале:
Дан одномерный массив ci , где i=1...n. Найти сумму элементов массива с, стоящих на четных местах. Подсчитать количество элементов массива c, значения которых меньше 1.

заранее большое спасибо!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.08.2012, 23:30
Ответы с готовыми решениями:

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
Задан одномерный массив из 17 целых элементов, заполненый случайным образом в...

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
Найти сумму и количество четных элементов массива Р(13), стоящих на нечетных...

Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.
Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все...

Найти сумму элементов, стоящих на четных местах массива
Дан массив Аi, i = 1, 2, …, 15. Найти сумму элементов, стоящих на четных местах...

Вычислить сумму элементов массива, стоящих на четных местах и произведение элементов, стоящих на нечетных
в Массиве целых чисел что складывается из 20 элементов,узнать сумму...

1
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
28.08.2012, 23:45 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const n = 10;
var c: array [1..n] of integer;
    i,sum,k: integer;
begin
 clrscr;
 randomize;
 writeln('Исходный массив C: ');
 for i:=1 to n do
  begin
   c[i]:=random(10)-3;
   write(c[i]:3);
   if not odd(i) then
    sum:=sum+c[i];
   if c[i]<1 then
    inc(k);
  end;
 writeln;
 writeln('Сумма элементов на четных местах: ',sum,', элементов <1 : ',k);
 readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.08.2012, 23:45

Найти сумму всех парных элементов массива, стоящих на четных местах
Дано масив целых чисел.Найти сумму всех парных элементов массива, стоящих на...

В одномерном целочисленном массиве найти сумму всех четных элементов и сумму элементов, стоящих на четных местах
Задать целочисленный массив А из 10 чисел. Найти сумму всех четных элементов и...

Найти сумму всех четных элементов стоящих на четных местах
дан массив целых чисел найти сумму всех четных элементов стоящих на четных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru