Program prog; uses crt; var a: array [1..100] of real; i, n: integer; begin clrscr; write('n = '); readln(n); for i: =1 to n do begin write('a[',i,'] = '); readln(a[i]); end; writeln; writeln('положительные числа: '); for i: =1 to n do if (a[i]> 0) then writeln('a[',i,'] = ', a[i]); end.
Спасибо
Ответ дал: Гость
половина байта, так как одно поле может принимать только 1 из 2 значений, тоесть 1 клетка 1 бит. так как клеток 4, сталобыть это 4 бит. так как 1 байт = 8 бит то 4 бита это половина байта
Ответ дал: Гость
var a: array[1..2,1..30] of integer; i,j: integer; begin for i: = 1 to 30 do begin writeln('введите номер ученика: '); read(a[1,i]); writeln('введите оценку: '); read(a[2,i]); end; for i: = 1 to 10 do begin writeln(i: 2,' - '); for j: = 1 to 30 if a[1,j]=i then write(a[2,i],' '); end; readkey; end.
Популярные вопросы