Линейные массивы

@ex-hack · Регистрация: 02.06.2009

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

известны сведения о количестве осадков выпавших за каждый день мая. первого мая осадков не было . определить в течение какого количества первых дней месяця непрерывно , начиная с первого маяя , осадков не было? условный оператор не использовать. росмотреть случай когда осадков не могоо быть и в какой день мая

Добавлено через 10 часов 11 минут 33 секунды
помогите пож кто нибудь с этой задачей

@mamedovvms · 05.06.2009, 06:42

Pascal

uses crt;
var a:array[1..31] of real;
     i:integer;
     s:real;
begin
for i:=2 to 31 do
 begin
  writeln('Vvedite kol-vo osadkov v ',i,' den ');
 readln(a[i]);
 
for i:=1 to 31 do
 write(a[i]);
writeln;
 end;
 clrscr;
 i:=0;
 s:=0;
 repeat
  i:=i+1;
  s:=s+a[i];
 until(s>0)or(i>=31);
writeln('Колличество дней без осадков ',i-1);
readln;
end.

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

Добавлено через 3 минуты 33 секунды

росмотреть случай когда осадков не могоо быть и в какой день мая

что то я не понял что это значит, напиши попонятнее

@ex-hack 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 14
		1
	Линейные массивы 05.06.2009, 02:13. Показов 1270. Ответов 1 Метки нет (Все метки) известны сведения о количестве осадков выпавших за каждый день мая. первого мая осадков не было . определить в течение какого количества первых дней месяця непрерывно , начиная с первого маяя , осадков не было? условный оператор не использовать. росмотреть случай когда осадков не могоо быть и в какой день мая Добавлено через 10 часов 11 минут 33 секунды помогите пож кто нибудь с этой задачей 0

Опции темы

Линейные массивы

Решение