Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно

@Эльзара · Регистрация: 20.05.2011

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

1. Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно.
2. Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность.
3. Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент, который меньше обоих своих соседей).
4. Дано число R и массив A размера N. Найти элемент массива, который наиболее близок к числу R (то есть такой элемент AK, для которого величина |AK − R| является минимальной).
5. Дан целочисленный массив размера N, все элементы которого упорядочены (по возрастанию или по убыванию). Найти количество различных элементов в данном массиве.
6. Дан массив A размера N. Сформировать новый массив B того же размера, элементы которого определяются следующим образом:
BK = 2•AK, если AK < 5,
AK/2 в противном случае.
7. Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу: элемент BK равен среднему арифметическому элементов массива A с номерами от 1 до K.
8. Дан массив размера N. Поменять местами его минимальный и максимальный элементы.
9. Дан массив A размера N и целое число K (1 ≤ K ≤ 4, K < N). Осуществить циклический сдвиг элементов массива влево на K позиций (при этом AN перейдет в AN−K, AN−1 — в AN−K−1, . . ., A1 — в AN−K+1). Допускается использовать вспомогательный массив из 4 элементов.
10. Дан целочисленный массив размера N (> 2). Удалить из массива все элементы с четными номерами (2, 4, . . .). Условный оператор не использовать.
11. Дано множество A из N точек (N > 2, точки заданы своими координатами x, y). Найти такую точку из данного множества, сумма расстояний от которой до остальных его точек минимальна, и саму эту сумму.

Добавлено через 52 минуты
Фрагмент!
1) запрашиваем ввод k, l

Pascal

S:=0;
For i:=1 to nMax do 
Begin
    If (a[i]<=k) and (a[i]>=l) then S:=S+a[k];
End;

правильно ли?

@Brotherhood6 · 20.05.2011, 16:48

1)

Pascal

var a:array[1..100] of integer;
n,k,l,sum,i
:integer;
begin
writeln('n: ');readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(30);
write(a[i]:4);
end;
writeln;
writeln('k: ');readln(k);
writeln('l: ');readln(l);
for i:=1 to k-1 do
sum:=sum+a[i];
for i:=l+1 to n do
sum:=sum+a[i];
writeln(sum);
end.

@Эльзара · 20.05.2011, 20:42 **[ТС]**

Да совсем у меня не правильно!Спасибо!если можно то и остальные помогите решить!У меня времени категорический не хватает то что бы решить все!сижу в декрете с детьми!

@Alsi · 26.05.2011, 12:19

2.

Pascal

Program array_27;
uses crt;
var m,a:array[1..100]of integer;
    i,n,k:integer;
 
begin
clrscr;
       repeat
             write('Введите размер массива N = ');
             readln(n);
       until n>1;
       for i:=1 to n do
       begin
            write('Введите массив -> ');
            readln(a[i]);
       end;
 
       for i:=1 to n-1 do
       begin
            if not((a[i] >=0) and (a[i+1]<=0)
               or (a[i] <=0) and (a[i+1] >=0))
            then
            begin
               k:=i+1;
            end;
       end;
 writeln('Ответ : ',k);
 readln;
end.

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно

Решение

Решение

@Эльзара 0 / 0 / 0 Регистрация: 20.05.2011 Сообщений: 11
	20.05.2011, 20:42 [ТС]	3
	Да совсем у меня не правильно!Спасибо!если можно то и остальные помогите решить!У меня времени категорический не хватает то что бы решить все!сижу в декрете с детьми! 0

Опции темы