Найти сумму всех чётных элементов массива, стоящих на чётных местах

@fors117 · Регистрация: 21.11.2011

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

1. Найти сумму всех чётных элементов массива, стоящих на чётных местах, то есть имеющие чётные номера.
14. Определить, есть ли в данном массиве строка (столбец), состоящая только из положительных элементов.

Добавлено через 4 минуты
ап срочно буду признателен

@КонецСвета · 21.11.2011, 20:41

Pascal

uses crt;
var a:array [1..10] of integer;
    i, sum: integer;
begin
     for i:=1 to 10 do
         begin
              write (' a[',i,']=');       // вводим элементы в массив с клавиатуры
              read (a[i]);
         end;
     sum:=0;
     i:=1;                               // задаем цикл перебора нечетных элементов
      while i<11 do
            begin
            if a[i] mod 2=0 then         // проверяем условие - является ли элемент четным, если да, то
               sum:=sum+a[i];            // добавляем элемент к имеющейся сумме
            i:=i+2;
            end;
      writeln ('Сумма четных элементов, стоящих на нечетных местах =',sum);
end.

@fors117 · 21.11.2011, 20:42 **[ТС]**

спасибо большое

@Санек Долгов · 21.11.2011, 20:49

ребят всем привет помогите пожалуста с задачами по Pascal буду очень признателен)))
Цель работы: приобретение практических навыков в написании программ с массивами.
Даны вещественные числа a,b. Значения функции (согласно вариантам) записать в массив. Затем, используя значения функции, записанные в массиве вычислить значение интеграла, по формуле трапеций
I1=h*[f(a)/2+f(a+h)+f(a+2h)+…+f(a+(n-1)h)+f(b)/2],

@fors117 · 21.11.2011, 20:50 **[ТС]**

ты с головой дружишь? тему создай свою

@fors117 0 / 0 / 1 Регистрация: 21.11.2011 Сообщений: 92
		1
	Найти сумму всех чётных элементов массива, стоящих на чётных местах 21.11.2011, 20:22. Показов 2509. Ответов 4 Метки нет (Все метки) 1. Найти сумму всех чётных элементов массива, стоящих на чётных местах, то есть имеющие чётные номера. 14. Определить, есть ли в данном массиве строка (столбец), состоящая только из положительных элементов. Добавлено через 4 минуты ап срочно буду признателен 0

@fors117 0 / 0 / 1 Регистрация: 21.11.2011 Сообщений: 92
	21.11.2011, 20:42 [ТС]	3
	спасибо большое 0

@Санек Долгов 0 / 0 / 0 Регистрация: 21.11.2011 Сообщений: 3
	21.11.2011, 20:49	4
	ребят всем привет помогите пожалуста с задачами по Pascal буду очень признателен))) Цель работы: приобретение практических навыков в написании программ с массивами. Даны вещественные числа a,b. Значения функции (согласно вариантам) записать в массив. Затем, используя значения функции, записанные в массиве вычислить значение интеграла, по формуле трапеций I1=h*[f(a)/2+f(a+h)+f(a+2h)+…+f(a+(n-1)h)+f(b)/2], 0

@fors117 0 / 0 / 1 Регистрация: 21.11.2011 Сообщений: 92
	21.11.2011, 20:50 [ТС]	5
	ты с головой дружишь? тему создай свою 0

Опции темы

Найти сумму всех чётных элементов массива, стоящих на чётных местах

Решение