Var a:array[1..10,1..20] of real; b:array[1..10] of integer; n,m,k,i,j:integer; begin write('n = '); readln(n); write('m = '); readln(m); for i:=1 to n do for j:=1 to m do begin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4:1,' '); writeln; end; for i:=1 to n do begin k:=0; for j:=1 to m do if a[i,j] = 0 then k:=k+1; b[i]:=k; end; writeln('Полученный массив:'); for i:=1 to n do write(b[i]:3); writeln; for i:=1 to n div 2 do begin k:=b[i]; b[i]:=b[n-i+1]; b[n-i+1]:=k; end; writeln('Измененный массив:'); for i:=1 to n do write(b[i]:3); writeln; end.
Программа с НОД var t,t1,x,y,z:integer; Function NOD(a, b: integer): integer; Begin If a=b then NOD:=a else if a>b then NOD:=NOD(a-b, b)<span> Else NOD:=NOD(a, b-a); </span>End; begin writeln('Введите 2 числа'); readln(x,y); t:=NOD(X,Y); writeln(t); end.<span> </span>
<span>а) Ученик отвечает у доски. </span> <span>б) Боря читает статью в журнале. </span> <span>в) Оля слушает песню по радио. </span> <span>г) Гена говорит с мамой по телефону. </span> <span>д) Водитель автобуса объявляет остановку.</span>