.(Дан двумерный массив из n×m элементов (n, м≤ 100) a11, a12 , a1n ; am1, am2 , amn.. найти сумму элементов на нечетных местах массива и произведение элементов на четных местах массива.).

115

296

Посмотреть ответы 1

Ответы на вопрос:

анарка3

Информатика

4,6(46 оценок)

Var s: string; p1,p2: integer; begin writeln('введите слово: '); readln(s); p1: =pos('жы',s); p2: =pos('шы',s); if (p1=0)and(p2=0) then writeln('ошибок не замечено.'); if p1> 0 then begin delete(s,p1,2); insert('жи',s,p1); writeln('слово написано с ошибкой.'); writeln('правильное написание - ',s); end; if p2> 0 then begin delete(s,p2,2); insert('ши',s,p2); writeln('слово написано с ошибкой.'); writeln('правильное написание - ',s); end; end.