Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
Во первых ошибка во фрагменте там должны быть цыфирки 1, а не буква l
т.е for n:=1 to 6 do
for m:=1 to 5 do begin
Текст программы
Uses crt;
var c:array[1..6,1..5] of integer;
n,m:integer;
begin
с[4,3]:=10;
for n:=1 to 6 do
for m:=1 to 5 do begin
с[n,m]:=с[n,m]+(2*n-m);
if (m=5)then
writeln(c[n,m])
else write(c[n,m],' ');
end;
writeln;writeln;
write('C[4,3]=',C[4,3]);
readkey;
end.
Прогоночный вывод
1 0 -1 -2 -3
3 2 1 0 -1
5 4 3 2 1
7 6 15 4 3
9 8 7 6 5
11 10 9 8 7
Отсюда получаем что если с[4,3]:=10 перед началом цикла то с[4,3]=15
в противном случае с[4,3]=5
Поесть ржаного пирожка у печки.
Поесть лесного яблочка у яблони.
Поесть киселька с молоком у речки.
Г=1/с; 1 мин 20с =80 с
1) F=256 000 бит/с * (2*60+45) секунд =256 000*165 бит - весь файл
2) (256 000 * 165 бит ) / (80 с *44 000 Г) = (256*165)/(80*44)=
=(16*15)/(5*4) = 4*3 = 12 бит - количество уровней квантования
1) Петя и Вера учатся у П (победитель Программирования), а Игорь и Маша только заинтересовались языком Си++, значит П - Олег. 2) Петя, Маша и Вера не И (победитель Истории), т.к. или учатся с ним в одной школе или живут в одном доме. Значит И - Игорь. 3) победитель Литературы (Л) знаком с Петей и Машей, значит он не они, а Вера. 4) Петя не любит английский, значит он - Р (победитель по Русскому яз.). 5. И остаётся Маша - А ( победитель по Англ.яз.). Значит правильные ответы: 1) Игорь, 2) Олег, 3) Вера, 4) Петя, 5) Маша.