Випишіть із тексту дива які побачили батько і син.Спираючись на зроблені нотатки опишіть якою ви уявляете чарівну крамницю із твору чарівна крамниця це Зарубіжна 7 клас
Алгоритм Ввод массива A[n,m] Max := A[1,1]; k := 1; p := 1; s := 0; Алгоритм Ввод массива A[n,m] Max := A[1,1]; k := 1; p := 1; c := 0; Цикл по i от 1 до n (по строкам) Цикл по j от 1 до m (по столбцам) Если (A(i, j) = Max) and ((i<>k) or (j<>p)) То c := c+1; Если (A(i, j) > Max) То k := i; p := j; c := 1; Max: = A(i, j); Конец Если Конец цикла по столбцам Конец цикла по строкам Вывод "Элемент ", Max, " встречается ", c, " раз" Конец.
Программа var A: array of array of integer var i,j,m,n,k,p,s,Max: integer BEGIN uses crt; clrscr; write ('Vvedite kol-vo strok: '); readln (n); write ('Vvedite kol-vo stolbtsov: '); readln (m); setlength(A,n,m); for i=1 to n do begin for j=1 to m do begin write ('Vvedite element vassiva: '); readln (A[i,j]); end; end; Max := A[1,1]; k := 1; p := 1; c := 0; for i=1 to n do begin for j=1 to m do begin if (A(i, j) = Max) and ((i<>k) or (j<>p)) then c := c+1; if (A(i, j) > Max) then begin k := i; p := j; c := 1; Max: = A(i, j); end; end; end; write ('Element ', Max, ' vstrechaetsya ', c, ' raz'); END.
Я думаю потому, что во-первых,русские земли были раздроблены, не было центра,откуда шла власть, все они были независимы,как отдельные маленькие государства, боролись Владимиро-Суздальское, Галицко-Волынская княжества и Великий Новгород, и тут на власть стало претендовать Владимиро-Суздальские земли,в центре с городом Москва, и подчинять себе ближайшие земли,некогда единые, естественно, когда одна страна подчиняет себе другие,они именуются уже тем именем, которое было у страны-победителя, мало кто знал,что это Владимиро-Суздальские земли, знал только,что центр- Москва, значит государство - Московия
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; s := 0;
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; c := 0;
Цикл по i от 1 до n (по строкам)
Цикл по j от 1 до m (по столбцам)
Если (A(i, j) = Max) and ((i<>k) or (j<>p)) То c := c+1;
Если (A(i, j) > Max) То
k := i; p := j; c := 1;
Max: = A(i, j);
Конец Если
Конец цикла по столбцам
Конец цикла по строкам
Вывод "Элемент ", Max, " встречается ", c, " раз"
Конец.
Программа
var A: array of array of integer
var i,j,m,n,k,p,s,Max: integer
BEGIN
uses crt; clrscr;
write ('Vvedite kol-vo strok: '); readln (n);
write ('Vvedite kol-vo stolbtsov: '); readln (m);
setlength(A,n,m);
for i=1 to n do
begin
for j=1 to m do
begin
write ('Vvedite element vassiva: '); readln (A[i,j]);
end;
end;
Max := A[1,1]; k := 1; p := 1; c := 0;
for i=1 to n do
begin
for j=1 to m do
begin
if (A(i, j) = Max) and ((i<>k) or (j<>p)) then c := c+1;
if (A(i, j) > Max) then
begin
k := i; p := j; c := 1;
Max: = A(i, j);
end;
end;
end;
write ('Element ', Max, ' vstrechaetsya ', c, ' raz');
END.