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

@Nub001 · Регистрация: 04.06.2010

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

1). В одномерном массиве вычислить максимальное число подряд идущих положительных чисел, не превышающих числа А и имеющих в своем составе цифру 5

Очень нужна помощь... Кто сможет пожалуйста помогите!!!

@PreviouS · 11.06.2010, 13:57

Pascal

program a1;
uses crt;
const n=30;
var s:array [1..n] of integer;
b,c,i,a:integer;
begin clrscr;
randomize;
read(a);
        for i:=1 to n do
        begin
        s[i]:=random(2)+5;
        write(s[i],' ');
        end;
i:=1;
repeat
c:=i;
        if s[i]>0 then
                if s[i]<=a then
                        if (s[i]-5 mod 10=0) or (s[i] div 10=5) then
                                if s[i]=s[i+1] then
                                begin
                                while s[i]=s[i+1] do
                                i:=i+1;
                                b:=i-c;
                                end;
i:=i+1;
until (i=n) or (i=n+1);
writeln;
writeln(b+1);
readln;
end.

@//Александр · 11.06.2010, 14:29

этот код будет работать только если s[i] <100.

@Nub001 · 11.06.2010, 17:59 **[ТС]**

спасибо... ммм сложности с запуском возникают.... что бы это могло быть?))))

@Nub001 0 / 0 / 0 Регистрация: 04.06.2010 Сообщений: 10
		1
	В одномерном массиве вычислить максимальное число подряд идущих положительных чисел 11.06.2010, 12:10. Показов 2317. Ответов 3 Метки нет (Все метки) 1). В одномерном массиве вычислить максимальное число подряд идущих положительных чисел, не превышающих числа А и имеющих в своем составе цифру 5 Очень нужна помощь... Кто сможет пожалуйста помогите!!! 0

@//Александр 6 / 6 / 2 Регистрация: 15.04.2010 Сообщений: 151
	11.06.2010, 14:29	3
	этот код будет работать только если s[i] <100. 0

@Nub001 0 / 0 / 0 Регистрация: 04.06.2010 Сообщений: 10
	11.06.2010, 17:59 [ТС]	4
	спасибо... ммм сложности с запуском возникают.... что бы это могло быть?)))) 0

Опции темы

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

Решение