Дана матрица x={x(ij)},i=1,,j=1,. вывести на печать элементы матрицы, сумма индексов которых равна заданной константе b.(паскаль)

Program a5; type mass=array [1..40] of integer; var i, j,n,s: integer; procedure horline; bedin read (n,m); for i: =1 to n  for j: =1 to m do read(a[i,j]); end; begin horline; read(b); for i: =1 to n do for j: =1 to m do  if i+j=b then  write (a[i,j], 'b'); end.

нет. компьютер может выполнять команды (программы) которые дает ему человек, сам по себе он работать не может, следовательно он не сможет заменить человека.

 

паскаль:

 

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

 

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.