Uses crt; const n=4; m=7; var a:array[1..n,1..m] of integer; i,j,s: integer; begin randomize; s:=0; for i:=1 to n do for j:=1 to m do begin a[i,j]:=random(101)-50; write(a[i,j]:4); end; writeln; for i:=1 to n do for j:=1 to m do if (a[i,j]>0) then s:=s+a[i,j]; writeln(s); end.
Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе. 1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации. 2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.
Program Ilgiz98; var i: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Программа находит 4-значные числа, которые делятся на 27'); writeln('Список таких чисел:'); for i:=1000 to 9999 do if (i mod 27)=0 then writeln(i); end.
Program Ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5'); write('Введите число N '); readln (n); writeln('*** Вычисляю... ***'); k:=0; writeln('Массив чисел:'); for i:=1 to 20 do begin mass[i]:=random(1000)-500; writeln(mass[i]); if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1; end; writeln(); writeln('Всего найдено ',k,' таких чисел'); end.
const n=4; m=7;
var a:array[1..n,1..m] of integer;
i,j,s: integer;
begin
randomize;
s:=0;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:4);
end;
writeln;
for i:=1 to n do
for j:=1 to m do
if (a[i,j]>0) then s:=s+a[i,j];
writeln(s);
end.