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

@В@люшк@ · Регистрация: 11.05.2011

Студворк — интернет-сервис помощи студентам

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

заранее большое спасибо!

@BumerangSP · 28.08.2012, 23:45

Pascal

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.

@В@люшк@ 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 35
		1
	Найти сумму элементов массива, стоящих на четных местах. Подсчитать количество элементов, значения которых меньше 1 28.08.2012, 23:30. Показов 6795. Ответов 1 Метки нет (Все метки) помогите пожалуйста решить задачку на паскале: Дан одномерный массив c_i , где i=1...n. Найти сумму элементов массива с, стоящих на четных местах. Подсчитать количество элементов массива c, значения которых меньше 1. заранее большое спасибо! 0

	28.08.2012, 23:45

Опции темы

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

Решение