Если одномерный массив, то:
program min;
var a:array[1..10] of integer;
i,min,k:integer;
begin
writeln('Введите элементы массива');
for i:=1 to 10 do
readln(a[i]);
min:=a{1];
for i:=1 to 10 do
if a{i]<min
then min:=a{i};
for i:=1 to 10 do
if a{i]=min
then k:=k+1;
writeln('Всего элементов с минимальным значением =',k);
end.
var
k: array [1..12] of <em>double</em>;
i: <em>byte</em>;
begin
for i := 1 to 12 do
begin
write('Enter the ', (new System.DateTime(1, i, 1)).toString('m').Replace('1', ''), 'temperature: ');
readln(k[i]);
end;
writeln('1) ', (k[12] + k[1] + k[2]) / 3);
writeln('2) ', (k[3] + k[4] + k[5]) / 3);
writeln('3) ', (k[6] + k[7] + k[8]) / 3);
writeln('4) ', (k[9] + k[10] + k[11]) / 3);
<span>end.</span>
<span>var a,b,i,s:integer;
begin
readln(a,b);
if a>b then begin s:=a; a:=b; b:=s; end;
s:=0;
for i:=a to b do
if (i>0)and(i mod 4=0) then s:=s+i;
writeln('s = ',s);
end<span>.
Пример:
30 -10
</span><span>s = 112</span></span>
Дискретные сигналы:
- энергетические уровни атома
- сигналы светофора
- символы, слова
Непрерывные сигналы:
- звуковая волна
- диаграмма изменения влажности, напряжения и некоторых других физических величин
4.7 Гбайт = 4700 Мбайт
4700 Мбайт = 4 812 800 Кбайт
4 812 800 Кбайт / 500 Кбайт = 9626 (шт) кол-во фотографий
5 * 9626 = 48 130 (с) на просмотр всех фото
<span>48130 / 3600 = 13,4 часа</span>