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

Program ulitka; var sunnyday: array [1..30] of boolean; a, b, c, i: integer; begin writeln('a = '); readln(a); writeln('b = '); readln(b); b : = b * 100; randomize; for i : = 1 to 30 do begin if random(2) = 1 then sunnyday[i] : = true else sunnyday[i] : = false; end; for i : = 1 to 30 do begin if sunnyday[i] = true then begin a : = a + 2; if a > b then a : = b; end else begin a : = a - 1; if a < 0 then a : = 0; end; end; writeln('дни месяца были таковы: '); for i : = 1 to 30 do begin if sunnyday[i] = true then writeln(i, '. солнечный') else writeln(i, '. пасмурный') end; writeln('к концу 30 дня местоположение улитки равно ', a, ' см над землей'); readln; end.

Uses crt; const n=30; var c: array[1..n] of integer; a,b,i: integer; begin randomize; writeln('на какой высоте была улитка'); readln(a); writeln('ведите длину ветки'); readln(b); for i: =1 to n do begin c[i]: =random(2)-0; {1-солнечно; 0-пасмурно} writeln(c[i]); end; writeln; for i: =1 to n do if (c[i]=0) then a: =a-1 else a: =a+2; writeln(a,'см'); if a> b then writeln('улитка переползла ветку'); if a=b then writeln('улитка вернулась в начальное положение'); if a=0 then writeln('улитка спустилась до земли'); end.

Программа на паскале. (в язык не уточняли) var i, n, max, r:   integer; begin writeln('введите кол-во учеников');           readln (n);           writeln('вводите рост учеников в см через пробел');           max: =0;           for i: =1 to n do           begin read(r);                     if (r> max) then max: =r;           end;           writeln(max); readln; end.

Const n=5; var i: integer; b: real; a: array [1..n] of integer;   {если его элементы целые числа (про тип чисел ничего не сказано в )} begin              for i: =1 to n do             read(a[i]);             if ((a[1]+a[3]) mod 5 = 0) and (a[5] mod 10 = 3) then             begin b: =0;                       for i: =1 to 5 do                       b: =b+sqr(a[i]);             end             else begin b: =1;                             for i: =1 to 5 do                             b: =b*sqrt(a[i]);                     end; writeln(b: 1: 2);         {округление до сотых} if (a[1]+a[2]+a[3])> 15 then writeln('да, сумма 1, 2 и 3 чисел больше 15') else writeln('нет, сумма 1, 2 и 3 чисел меньше или равна 15'); if ((a[4]+a[5]) div 10> 0) and ((a[4]+a[5]) div 100< 0) then writeln('да, сумма 4 и 5 чисел - двузначное число') else writeln('нет, сумма 4 и 5 чисел - не двузначное число'); readln; {чтобы была задержка до нажатия кнопки при выполнении программы и мы могли бы увидеть ответ} end. решить можно и без использования массива.