Program pr2; uses crt; var m,n,i,j,k,l:integer; mas: array[1..99,1..99] of integer; masb: array [1..99] of integer; begin clrscr; write('vvedite m'); readln(m); write('vvedite n'); readln(n); writeln('vvedite massiv MxN') ;for i:=1 to m do for j:=1 to n do begin write('mas[',i,',',j,']= '); readln(mas[i,j]); end; for i:=1 to m do begin k:=mas[i,1]; l:=mas[i,1]; for j:=1 to n do begin if k < mas[i,j] then k:=mas[i,j]; if l > mas[i,j] then l:=mas[i,j]; end; masb[i]:=k-l;
end; for i:=1 to m do begin for j:=1 to n do write(mas[i,j],' '); writeln('result = ',masb[i]); end; readln(i) end.
1. Язык программирования Pascal создал: a. Н. Вирт
2. Линейная структура построения программы подразумевает b. Последовательное выполнение всех элементов программы
3. Оператор присваивания имеет вид: b. :=
4. Команда CLRSCR служит для c. очистки экрана
5. раздел VAR служит a. Для описания используемых переменных
6. Переменные – это: a. величины, которые могут менять свое значение в процессе выполнения программы
7. Правильная строковая запись выражения b. x-x*x*x/abs (x) +sin (x) Так как скобки там не на что не влияют, то их отсутствие правильный вариант в отличае от пункта с Пункт а тоже может быть верным в языке где степень определена как ***, например в Ruby это **. Без указания языка/универсальным будет ответ b
8. целочисленное деление можно выразить следующей функцией: b. A div B
9. математическое выражение х2-7х+6 можно записать: x*x-7*x+6
10. выражение на паскале (abs (x)-abs(y))/(1 + abs (1/s)) можно записать: (|x|-|y|)/(1+|1/s|)
11. раздел операторов начинается служебным словом: c. BEGIN
12. ввод данных с клавиатуры осуществляется с оператора: b. READ, READLN
13. вывод данных на экран осуществляется с оператора: a. WRITE, WRITELN
14. чему будет равно значение переменной М в результате выполнения серии операторов N:=5; Y:=2; M:=N/5+3*Y*N M = 1+3*2*5=31
15. тип переменных REAL это: d. верного ответа нет
1. Язык программирования Pascal создал: a. Н. Вирт
2. Линейная структура построения программы подразумевает b. Последовательное выполнение всех элементов программы
3. Оператор присваивания имеет вид: b. :=
4. Команда CLRSCR служит для c. очистки экрана
5. раздел VAR служит a. Для описания используемых переменных
6. Переменные – это: a. величины, которые могут менять свое значение в процессе выполнения программы
7. Правильная строковая запись выражения b. x-x*x*x/abs (x) +sin (x) Так как скобки там не на что не влияют, то их отсутствие правильный вариант в отличае от пункта с Пункт а тоже может быть верным в языке где степень определена как ***, например в Ruby это **. Без указания языка/универсальным будет ответ b
8. целочисленное деление можно выразить следующей функцией: b. A div B
9. математическое выражение х2-7х+6 можно записать: x*x-7*x+6
10. выражение на паскале (abs (x)-abs(y))/(1 + abs (1/s)) можно записать: (|x|-|y|)/(1+|1/s|)
11. раздел операторов начинается служебным словом: c. BEGIN
12. ввод данных с клавиатуры осуществляется с оператора: b. READ, READLN
13. вывод данных на экран осуществляется с оператора: a. WRITE, WRITELN
14. чему будет равно значение переменной М в результате выполнения серии операторов N:=5; Y:=2; M:=N/5+3*Y*N M = 1+3*2*5=31
15. тип переменных REAL это: d. верного ответа нет
uses crt;
var
m,n,i,j,k,l:integer;
mas: array[1..99,1..99] of integer;
masb: array [1..99] of integer;
begin
clrscr;
write('vvedite m');
readln(m);
write('vvedite n');
readln(n);
writeln('vvedite massiv MxN')
;for i:=1 to m do
for j:=1 to n do
begin
write('mas[',i,',',j,']= ');
readln(mas[i,j]);
end;
for i:=1 to m do
begin
k:=mas[i,1];
l:=mas[i,1];
for j:=1 to n do
begin
if k < mas[i,j] then k:=mas[i,j];
if l > mas[i,j] then l:=mas[i,j];
end;
masb[i]:=k-l;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(mas[i,j],' ');
writeln('result = ',masb[i]);
end;
readln(i)
end.