Регистрация
pavelstanowkin
07.05.2021 11:51
Информатика
Есть ответ 👍

Схема по информатике ​

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

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

mixon2
mixon2
4,5(36 оценок)
Const n=7; m=8; var a: array[1..n,1..m] of integer; i,j,x,y,min: integer; begin for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(21)-10; write(a[i,j]: 4); end; writeln; end; min: =a[1,1]; x: =1; y: =1; for i: =1 to n do for j; =1 to m do  if a[i,j]< min then begin min: =a[i,j]; x: =i; y: =j; end; writeln ('минимальный элемент=',min,'  он находился:   ',x,',',y); a[x,y]: =100; for i: =1 to n do begin for j: =1 to n do  write (a[i,j]: 4); writeln; end; end. 3.var s: string; i: integer; begin writeln('введи строку'); readln (s); for i: =1 to length(s) do if (s[i]='е') or (s[i]='е') then delete(s,i,1); writeln(s); end.

Популярно: Информатика