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

@Katia777 · Регистрация: 03.05.2012

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

Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех элементов массива, кроме элементов с номерами K и L.

valeriikozlov · 26.05.2012, 01:03

Если массив a[] размером N уже есть, и в переменные K,L записаны числа, то можно так:

Pascal

s:=0;
for i:=1 to N do
if (i<>K) and (i<>L) then inc(s, a[i]);
writeln(s);

@Katia777 · 26.05.2012, 15:06 **[ТС]**

Pascal

const n = 4;
var a:array[1..n] of integer;
    k,l,i,s:integer;
    su: real;
begin
for i:=1 to n do a[i]:=random(100);
 
    write('K=');
    readln(k);
    write('L=');
    readln(l);
s:=0;
     for i:=1 to n do
 
         if (i<>k) or (i<>l) then inc (s, a[i]);
           writeln (s);
            readln;
      end.

не выводит массив.... помогите пожалуйста найти ошибку

@CodeR · 26.05.2012, 17:28

Pascal

const n = 4;
 var a:array[1..n] of integer;
 k,l,i,s:integer;
 su: real;
 begin
 for i:=1 to n do a[i]:=random(100);
 write('K=');
 readln(k);
 write('L=');
 readln(l);
 s:=0;
 for i:=1 to n do
  Begin
   if (i<>k) and (i<>l) then inc (s, a[i]);
   write(A[i]:3);
  End;
 writeln;
 writeln (s);
 readln;
 end.

Не выводит потому что у вас вывода как такого нету в программе...

@Katia777 0 / 0 / 0 Регистрация: 03.05.2012 Сообщений: 60
		1
	Найти сумму всех элементов массива, кроме элементов с номерами K и L 26.05.2012, 00:05. Показов 1014. Ответов 3 Метки нет (Все метки) Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех элементов массива, кроме элементов с номерами K и L. 0

Опции темы

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

Решение