program z_array; uses crt; var a: array[1..100,1..100] of integer; m,n,i,j: byte; sum: integer; begin clrscr; writeln('введите количество строк матрицы'); readln(n); writeln('введите количество столбцов матрицы'); readln(m); writeln('введите элементы матрицы'); for i : = 1 to n dofor j : = 1 to m dobegin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('данная матрица'); writeln; sum : = 0; for i : = 1 to n dobeginfor j : = 1 to m dobegin write(a[i,j]: 5); if (j < i) then sum : = sum + a[i,j]; end; writeln; writeln('искомая сумма = ',sum); readln; end.
Спасибо
Ответ дал: Гость
эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим :
111100% = 60% девочек
1100 = 12 мальчиков
12 мальчиков составляют 40% учащихся в классе
составим пропорцию
12 - 40%
х - 100%
х = 12 * 100 : 40 = 30
ответ. в классе 30 учеников.
Ответ дал: Гость
например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2, 3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:
Популярные вопросы