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

максимальное количество подряд идущих положительных элементов

04.06.2013, 22:35. Показов 556. Ответов 0
Метки нет (Все метки)

Помогите с переводом с pascal на С++

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
42
43
44
45
46
47
48
49
50
Program prog525;
 
Uses Crt;
{Массив А - вводимый массив
  Массив В - текущий массив
  Массив С - массив для последовательности с наиб. кол. полож. эл. 
  Массив D - массив для очистка}
Var
  A,B,C,D:Array[1..100] of integer;
  N,i,k,S:integer;
 
Begin
 
  repeat
    Writeln('Vvedite N-razmernost massiva. Ne bolee 100');
    Readln(N);
  Until (N in [1..100]);
  Randomize;
  For i:=1 to N do
    A[i]:=Random(50)-25;
  For i:=1 to N do
    Write(A[i]:4);
  S:=0;
  k:=0;
  i:=1;
  While (i<=N) do
    begin
    If (A[i]>0) Then
      begin
      inc(k);
      B[k]:=A[i];
      If k>S Then
        begin
        C:=B;
        Inc(S);
        end;
      end
    Else
      begin
      k:=0;
      B:=D;
      end;
    inc(i);
    end;
  Writeln;
  Writeln('Elementov= ',S,'.   ');
  For i:=1 to S do
    Write(C[i]:4);
  Repeat Until KeyPressed;
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2013, 22:35
Ответы с готовыми решениями:

Определить максимальное количество подряд идущих положительных элементов последовательности, не прерываемых ни нулями, ни отрицательными элементами
Дана вещественная таблица а,...,а. Определить максимальное количество подряд идущих положительных...

Определить максимальное количество подряд идущих положительных элементов массива, не прерываемых ни нулями, ни отрицательными элементами
помогите с этой задачей)) Дан линейный вещественный массив a1,a2,..,an. Определить максимальное...

Найти максимальное количество подряд идущих чётных элементов
Мне дана задача : опишите на одном из языков программирования алгоритм подсчета максимального...

Подсчитать максимальное количество подряд идущих отрицательных элементов.
Дан одномерный массив А, состоящий из N элементов. Подсчитать максимальное количество подряд идущих...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2013, 22:35

Найти максимальное количество подряд идущих минимальных элементов
Найти максимальное количество подряд идущих минимальных элементов. ОДНОПРОХОДНОЙ алгоритм

Как найти максимальное количество подряд идущих элементов?
Всем привет! У нас есть массив который задается пользователем(цифры 0 или 6) int depo; Как...

Количество положительных элементов, идущих подряд
Определить наибольшее число положительных элементов, идущих подряд, в массиве А.

Найти максимальное количество подряд идущих минимальных элементов из данного набора
Дано целое число N и набор из N целых чисел. Найти максимальное количество подряд идущих...


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

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

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