0 / 0 / 0
Регистрация: 11.10.2010
Сообщений: 15
1

Цикл..while repeat until

05.11.2010, 17:16. Показов 1803. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количества K таких чисел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.11.2010, 17:16
Ответы с готовыми решениями:

Цикл REPEAT
С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда...

цикл while и repeat
помогите сделать программы используя цикл while ну или repeat 1.Население города увеличивается...

Цикл с послеусловием. Repeat
Дано целое число N (N>0). Используя операцию деления без остатка и взятия остатка от деления, найти...

цикл while и repeat...условие внутри
условие задачи: Билет называется счастливым, если сумма первых трех цифр номера билета равна сумме...

1
155 / 155 / 44
Регистрация: 03.11.2010
Сообщений: 393
05.11.2010, 17:59 2
Лучший ответ Сообщение было отмечено как решение

Решение

На мой взгляд так:
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
37
38
39
40
41
program ArrCnt;
uses Crt;
const
  N = 10;
var
  MyArr: Array [1..N] of Integer;
  I, Cnt: Integer;
  
begin
  ClrScr;
  Randomize;
  
  WriteLn('Ves nabor:');
  I := 1;
  repeat
    MyArr[I] := Random(100);
    Write(MyArr[I], '  ');
    Inc(I);
  until
    I > N;
 
  WriteLn;
  
  WriteLn('Nomera iskomih 4isel: ');
  Cnt := 0;
  I := 1;
  while I <= N - 1 do begin
    if MyArr[I] > MyArr[I + 1] then
    begin
      Write(I, '  ');
      Inc(Cnt);
    end;
    Inc(I);
  end;
 
    WriteLn;
    
    WriteLn('Koli4estvo iskomih 4isel: ', Cnt);
    ReadLn;
 
end.
3
05.11.2010, 17:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.11.2010, 17:59
Помогаю со студенческими работами здесь

Как из цикла for сделать цикл repeat-until?
Как из цикла for сделать цикл repeat-until? Вот программа: program zadanie4; uses crt; function...

Как из цикла repeat-until сделать цикл for?
Как из цикла repeat-until сделать цикл for? Вот сама программа: program L4; uses crt; var ...

Работа с нетипизированными файлами (через цикл repeat)
program z3m4a7; uses crt; var f1,f2:file; i,n1:word; buf:arrayof byte; begin clrscr; ...

Вычислить сумму и среднее арифметическое первых n целых чисел (цикл Repeat).
Очередная задачка: Вычислить сумму и среднее арифметическое первых n целых чисел (цикл Repeat).


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru