Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Кирилл1000
1 / 1 / 0
Регистрация: 05.05.2015
Сообщений: 60
#1

Убрать последний проход цикла WHILE

01.10.2015, 15:28. Просмотров 843. Ответов 5
Метки нет (Все метки)

Сделал задачу, но она суммирует ненужный последний элемент. Как убрать этот элемент?
Для теста введите:
3
3 4 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
var
 arr: array[1..10000] of integer;
 i,j,s,n: integer;
 k,q,s1,w:integer;
begin
 s:=0;
 s1:=0;
 writeln('Введите кол-во элементов элементов');
 readln(n);
 Writeln('Введите элементы массива');
  for i:=1 to n do
   read(arr[i]);
 writeln;
       Randomize;
 
  while  s <= 100 do
    begin
     j:= 1 + Random(N);
     write(Arr[j], ' ');
     s:=s+arr[j];
    end;
 
    writeln;
  writeLn('Длина  =  ', s);
 
    readln;
    readln;
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.10.2015, 15:28
Ответы с готовыми решениями:

Вывод результата в теле цикла и за пределами цикла???
Вывод результата в теле цикла и за его пределами: 1. как это влияет на результат? 2. где про это...

Zc.pas(16) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла
program Zc; uses crt; const c=100; var a:array of integer; n,i,k,s:integer; begin clrscr;...

Нельзя изменять значение переменной цикла внутри этого цикла
function factorial(x:integer):integer; begin var i,var1:integer; for i:=1 to x do begin...

Показать, что любой оператор цикла while можно записать с помощью цикла repeat
Показать, что любой оператор цикла с предусловием можно записать с помощью условного оператора и...

Проход матрицы по столбцам
Доброго времени суток. Довольно глупый вопрос. &quot;По стандарту&quot; матрица проходится по строкам. Как...

5
tigerKR
Заблокирован
01.10.2015, 15:35 #2
Лучший ответ Сообщение было отмечено Кирилл1000 как решение

Решение

если последний элемент не нужен, то после цикла сделай
Pascal
1
s:=s-arr[j];
0
Кирилл1000
1 / 1 / 0
Регистрация: 05.05.2015
Сообщений: 60
01.10.2015, 15:38  [ТС] #3
Спасибо!
1
Puporev
Модератор
54354 / 41945 / 28978
Регистрация: 18.05.2008
Сообщений: 98,805
01.10.2015, 17:31 #4
Pascal
1
while  s < 100 do
0
Кирилл1000
1 / 1 / 0
Регистрация: 05.05.2015
Сообщений: 60
02.10.2015, 06:44  [ТС] #5
Нет, не выполняются нужные условия. В первую очередь это делал.
0
Puporev
Модератор
54354 / 41945 / 28978
Регистрация: 18.05.2008
Сообщений: 98,805
02.10.2015, 07:11 #6
А что Вы вообще хотите получить?
0
02.10.2015, 07:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.10.2015, 07:11

За один проход цикла найти два максимальных значения среди всех данных и удалить их
Задача: За один проход цикла найти два максимальных значения среди всех данных и удалить их. Затем...

Поменять местами в каждом столбце матрицы последний положительный и последний отрицательный элементы.
нужно составить программу по заданию: Поменять местами в каждом столбце матрицы последний...

Поменять местами в каждом столбце матрицы последний положительный и последний отрицательный элементы
Поменять местами в каждом столбце матрицы последний положительный и последний отрицательный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru