Заменить цикл while на for в программе: var i,z,y,x: integer; begin writeln('введите числа: '); readln(x,y); while i < > y do begin z: =z+x; i: =i+1; end; write(z); end.
Program matrix; var A: array[1..10, 1..10] of integer; i, j, mini, minj, maxi, maxj, temp: integer; begin Randomize; for i := 1 to 10 do begin for j := 1 to 10 do begin A[i, j] := random(100); write(A[i, j], ' '); end; writeln; end; mini := 1; minj:=1; maxi := 1; maxj:=1; for i := 1 to 10 do for j := 1 to 10 do begin if A[i, j] < A[mini,minj] then begin mini := i; minj := j; end; if A[i, j] > A[maxi,maxj] then begin maxi := i; maxj := j; end; end; WriteLn('min = ',A[mini,minj],' это ',mini,' ряд ',minj,' столбца.' ); WriteLn('max = ',A[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' ); temp := A[maxi, maxj]; A[maxi, maxj] := A[mini, minj]; A[mini, minj] := temp; writeln; for i := 1 to 10 do begin for j := 1 to 10 do write(A[i, j], ' '); writeln; end; readln; end. temp - переменная для временного хранения минимальных и максимальных элементов.
В задании не указано - требуется ли использовать форму или нет. Вариант документа с формой: <HTML> <HEAD> <SCRIPT> <!-- function btnClick(n) { if (n>5) r=n*n; else if (n<5) r=n-2; else r=Number(n)+1; document.frm.res.value=r; } //--> </SCRIPT> </HEAD> <BODY> <H1>Документ с JavaScript</H1> <FORM name=frm> Введите число <INPUT type=text name=num size=5 value=0> <INPUT type="button" name="bt" value="Щелкни здесь!" onClick="btnClick(num.value);"> Результат: <INPUT type=text name=res size=5 value=0> <BR><INPUT type=reset VALUE="Сброс"> </FORM> </BODY> </HTML>
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
