Найти сумму элементов массива с нечетным индексом, по модулю меньше K

@tonoha · Регистрация: 15.11.2014

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

По заданому условию сформировать одномерный массив (вектор), вывести на печать и произвести операции по обработке полученных компонента массива. Для всех вариантов исходными данными являются одномерный массив, элемент которого задаются с помощью датчика случайных чисел от -50 до +50, и целое положительное число K.

Нужно найти сумму элементов массива с нечетным индексом, по модулю меньше K.

@ZX Spectrum-128 · 15.11.2014, 10:19

Pascal

uses
  math;
const
  n=6;
var
  a: array [1..n] of integer;
  i,k,s:integer;
begin
  randomize;
  write('Введите целое положительное число К: ');  readln(k);
  s:=0;
  for i:=1 to n do
    begin
      a[i]:=randomrange(-50,50);
      write(a[i]:4);
      if (odd(i)) and (abs(a[i])<k) then
        s:=s+a[i];
    end;
  writeln;
  writeln('Сумма: ',s);
  readln;
end.

@CodeR · 15.11.2014, 10:26

Pascal

Var A:array[1..100] of integer;
    i,s,k,n:integer;
Begin
    Randomize;
    n:=random(30)+10;
    For i:=1 to n do
    Begin
      A[i]:=-50+random(51);
      write(A[i]:4);
    End;
    writeln;
    write('k: ');readln(k);
    i:=1;
    While i<=n do
    Begin
      if abs(A[i])<k then s:=s+A[i];
      inc(i,2);
    End;
    writeln('Сумма = ',s);
    readln;
End.

@vint-81 · 15.11.2014, 10:30

Сообщение от CodeR

A[i]:=-50+random(51);

опечатка наверное, random(101)

@CodeR · 15.11.2014, 10:31

Сообщение от vint-81

опечатка наверное, random(101)

Точно

@tonoha · 15.11.2014, 17:12 **[ТС]**

Большое вам спасибо

@tonoha 0 / 0 / 0 Регистрация: 15.11.2014 Сообщений: 5
		1
	Найти сумму элементов массива с нечетным индексом, по модулю меньше K 15.11.2014, 06:49. Показов 2070. Ответов 5 Метки нет (Все метки) По заданому условию сформировать одномерный массив (вектор), вывести на печать и произвести операции по обработке полученных компонента массива. Для всех вариантов исходными данными являются одномерный массив, элемент которого задаются с помощью датчика случайных чисел от -50 до +50, и целое положительное число K. Нужно найти сумму элементов массива с нечетным индексом, по модулю меньше K. 0

@vint-81 охотник 1011 / 535 / 650 Регистрация: 29.09.2014 Сообщений: 1,083
	15.11.2014, 10:30	4
	Сообщение от CodeR A[i]:=-50+random(51); опечатка наверное, random(101) 1

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,603 Записей в блоге: 1
	15.11.2014, 10:31	5
	Сообщение от vint-81 опечатка наверное, random(101) Точно 0

@tonoha 0 / 0 / 0 Регистрация: 15.11.2014 Сообщений: 5
	15.11.2014, 17:12 [ТС]	6
	Большое вам спасибо 0

Опции темы