напишите алгоритм Где-то в поле Робота находится прямоугольник, размеры которой неизвестны. Робот из верхнего левого угла поля должен дойти до прямоугольника и закрасить все клетки по периметру вокруг него. Пример результата работы программы показан на рисунке. (с цикла пока).
var
i,count:integer;
h: array [1..N] of integer;
begin
count:=0;
writeln('Введите количество осадков');
for i:=1 to N do
read(h[i]);
for i:=1 to N do
if h[i]>0 then
count:=count+1;
writeln('Количество дождливых дней ', count)
end.
В первой строке указываем количество дней. Это константа N
Далее объявляем, что переменная count равна 0. В этой переменной мы будем хранить количество дней с осадками.
Далее мы вводим с клавиатуры 30 чисел, показывающих осадки.
Потом мы проверяем, если число в массиве больше нуля, то мы увеличиваем count на единицу. Тоесть прибавляем +1 день с осадками.
В конце выводим количество дней с осадками
3:
using System.IO;
using System;
namespace тылпыа
{
class Program
{
public static void Main(string[] args)
{
StreamReader reader = new StreamReader("input.txt");
StreamWriter writer = new StreamWriter("output.txt");
string input = " ";
while (true) {
input = reader.ReadLine();
if (input == null) {
break;
}
writer.WriteLine(input.Replace(", короче,", ", в общем,"));
}
writer.Close();
}
}
}