Uses crt;const h=100;var a: array [1..h,1..h] of integer; n,x,y,max: integer;
begin write('Длина матрицы= '); readln(n); // Enter for x:=1 to n do for y:=1 to n do begin write('a[',x,',',y,']= '); readln(a[x,y]); end; // max:=a[1,1]; while x<>n do begin if a[x,x] > max then begin max:=a[x,x]; y:=x; end; inc(x); end; writeln('Максимальный элемент равен ',max,'.Его координаты (',y,';',y,').'); <span>end.</span>

0 0

4 года назад

Написать программу, которая вычисляет наибольший общий делитель двух целых чисел Паскаль

anni spi

Var a, b: integer;
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
<span>end.</span>

0 0

4 года назад

Как создать простой веб-сайт в Microsoft Word?

Зура

Самый простой способ ( ток он будет не в ворде) это с помощью языка HTML. Там довольно таки просто я на нем сайт делала.

Здесь основнные теги - https://html5book.ru/html-tags/

Ну и на ютубе есть видеоуроки.

0 0

4 года назад