...
var
a: array [1..100,1..100] of integer;
n,m,i,j:byte;
sr:real;
sum:integer;
begin clrscr;
writeln('Введи кол-во строк: ');
readln(n);
writeln('Столобцов: ');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random (10)+0;
sum:=0;
for i:=1 to n do
for j:=1 to m do
sum:=sum+a[i,j];
sr:=sum/(n*m);
writeln('Среднее арифметичексое: ',sr);
readkey;
end.
P.S.
могу напутать с типами данных
428(10)
428 | 214 | 107 | 53 | 26 | 13 | 6 | 3 | 1
0 0 1 1 0 1 0 1 1 <------- 428(10) = 110101100 (2)
428 | 53 | 6 |
424 48 0
------------------------------
4 5 6 <-------- 428(10) = 654(8)
============================================
8(10) =1000(2)
8(10) =10(8)
========================================
409(10) =110011001 (2)
409 (10) = 631(8)
409 204 102 51 25 12 6 3 1
1 0 0 1 1 0 0 1 1 <===== 409(10) = 110011001(2)
409 51 6
408 48 0
------------------------
1 3 6 <===== 409(10) = 631(8)
Program vidcvnjiod;
uses crt;
var p,a:real;
m:integer;
begin
clrscr;
a:=1000;
p:=(a*2)/100;
m:=3;
repeat
a:=a+p;
m:=m+1;
until a>1050;
m:=m mod 12;
case m of
0: writeln('декабрь');
1: writeln('январь');
2: writeln('февраль');
3: writeln('март');
4: writeln('апрель');
5: writeln('май');
6: writeln('июнь');
7: writeln('июль');
8: writeln('август');
9: writeln('сентябрь');
10: writeln('октябрь');
11: writeln('ноябрь');
readln;
end.
Откомпиль, если ошибки, то исправь, но вроде не должно быть
В программе а=1000
отсчитывается процент
идет цикл пока сумма не больше 1050
прибавляется процент и месяц идет дальше
Затем выбор месяца
Ответ: 328
------
Набор букв для возможности опубликовать ответ
А) GPS-навигатор
б) сиди диск.
в) накопитель
г) светодиод
могу ошибаться, но может так)
