напишите алгоритм, пол управлением которого робот обойдет прямоугольную область, обнесенную стеной, по периметру и закрасит угловые клетки. размеры области неизвестны. продолжите готовое
Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
создать программу или составить алгоритм? с готовой программой нечего не научишся, прийми програмирование как искуство и твори чудеса...
вобщем алгоритм такой:
0)вводиш строку
1)создаеш масив содержащий координаты букв "я" какие нарушают правило и возьмем длинну масива например такую как длинна строки пополам.
2)в цикле от 1 (0 в с++) до длинны строки выполняеш следующее:
2.1)если i-й елемент строки равен "ч" а i+1 равен "я" то колво ошибок = колво +1; записываем в масив i+1
2.2)если i-й елемент строки равен "щ" а i+1 равен "я" то колво ошибок = колво +1; записываем в масив i+1
3) в цикле от 1(0 в с++) до колво ошибок все елементы строки координаты которых лежат в масиве, меняем на букву "я".
4) выводим на екран результат.