Решите пожалуйста 2 задачи!

[darter96]

Первая:Входной файл: f.in
Выходной файл: f.out
Ограничение по времени: 1 сек.

Условия
Неспокойно сейчас на стапелях шестого дока межгалактического порта планеты Торна. Всего через месяц закончится реконструкция малого броненесущего корвета “Эния”. И снова этому боевому кораблю и его доблестной команде предстоят тяжелые бои за контроль над плутониевыми рудниками Сибелиуса. Работа не прекращается ни на секунду, лазерные сварочные аппараты работают круглые сутки. От непрерывной работы плавятся шарниры роботов-ремонтников. Но задержаться нельзя ни на секунду.
И вот в этой суматохе обнаруживается, что термозащитные панели корвета вновь требуют срочной обработки сульфидом тория. Известно, что на обработку одного квадратного метра панели требуется 1 нанограмм сульфида. Всего необходимо обработать N прямоугольных панелей размером A на B метров. Вам необходимо как можно скорее подсчитать, сколько всего сульфида необходимо на обработку всех панелей “Энии”. И не забудьте, что панели требуют обработки с обеих сторон.

Входные данные
Во входном файле содержатся 3 целых положительных числа N (N ≤ 100), A (A ≤ 100), B (B ≤ 100).

Выходные данные
В выходной файл нужно вывести единственное число – вес необходимого для обработки сульфида тория в нанограммах.




Вторая:Входной файл: g.in
Выходной файл: g.out
Ограничение по времени: 1 сек.

Условия
Уставшие от необычно теплой зимы, жители решили узнать, действительно ли это самая длинная оттепель за всю историю наблюдений за погодой. Они обратились к синоптикам, а те, в свою очередь, занялись исследованиями статистики за прошлые годы. Их интересует, сколько дней длилась самая длинная оттепель. Оттепелью они называют период, в который среднесуточная температура ежедневно превышала 0 градусов Цельсия. Напишите программу, помогающую синоптикам в работе.

Входные данные
Во входном файле сначала записано число N – общее количество рассматриваемых дней (1 ≤ N ≤ 100). В следующей строке через пробел располагается N целых чисел, разделенных пробелами. Каждое число – среднесуточная температура в соответствующий день. Температуры – целые числа и лежат в диапазоне от –50 до 50.

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

[NSvirus]

Где вы такие задачи берете, аж смех распирает)

[darter96]

Нада ну ответьте мне нада очеьн

[ОДИНОЧЕСТВО В СЕТИ]

1

Program primer; 
	Var f1,f2:file of integer; 
	    I,a,b,n,s: integer; 
	Begin 
	
	    Assign(f1, 'f.in'); 
             Reset(f1);
	  While not eof(f1) do 
	    Begin 
	        Read(f1,a,b,n)
			end;
      close(f1);
	  s:=2*a*b*n;
	 Assign(f2, 'f.out');
	 rewrite(f2);
	        Writeln(f2,s);
	   
	    Close(f2); 

	End.

как то так
2

Program pogoda; 
Var f1,f2:file of integer; 
	I,max,k,n,a: integer; 
Begin 
	Assign(f1, 'f.in'); 
    Reset(f1);
	Read(f1,n)
	max:=0;
	k:=0;
	for i:=1 to n do begin
	  read(f1,a);
	  if a>=0 then inc(k);
      if (a<0) and (k>max) then begin
      max:=k;
	  k:=0;
	  end;
	end;	
    close(f1);
	 
	Assign(f2, 'f.out');
	rewrite(f2);
	Writeln(f2,max);
	Close(f2); 
End.

[darter96]

спасибо!ыыыыыы

[Serge_Bliznykov]

Прежде всего, хочу отметить, что одинокая девушка пишет код в блокноте! И отлаживает в уме!
ОДИНОЧЕСТВО В СЕТИ, РЕСПЕКТ!!

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

вот, проверьте для тестовых последовательности (содержимое файла g.in):

12
-4 2 20 -1 1 -1 5 -4 2 1 -2 1

правильный ответ должен быть 2

12
-4 -2 20 -1 -1 -1 5 -4 2 1 2 1

правильный ответ — 4

вот скорректированный код:

var f1, f2: text;
  I, max, k, n, a: integer;
begin
  Assign(f1, 'g.in');
  Reset(f1);
  Read(f1, n);
  max := 0;
  k := 0;
  for i := 1 to n do begin
    read(f1, a);
    if a >= 0 then inc(k)
    else 
      begin
       if (k > max) then max := k;
       k := 0;
     end;
  end;
  {а это проверка, если самая длинная
      последовательность завершает строку}
  if (k > max) then max := k;

  close(f1);

  Assign(f2, 'g.out');
  rewrite(f2);
  Writeln(f2, max);
  Close(f2);
end.

p.s. типы файлов должны быть текстовые.
p.p.s имена файлов также исправил на заданные в условиях задачи.

[Albetinio]

Помогите пожалуйста решить задачи
Задача1:
"Составить алгоритм в виде блок-схемы и программу для решения задачи.
Для одномерного вещественного массив, содержащего данные о температуре воздуха за неделю, найти среднюю температуру воздуха. Элементы массива распечатать в столбец с указание имени и индекса каждого элемента"

задача2 (по циклу for):
"Составить программу, подсчитывающую количество положительных и произведение отрицательных из 13 чисел, введенных с клавиатуры"