Вообще подобные задания обычно делаются в excel.
И делать с массивом или без?.
program abc;
var A : array [1..7] of integer;
s, k: integer;
BEGIN
s:=0
for k:= 1 to 7 do
begin
readln (A[k]);
s:=s+A[k];
end;
writeln ('Среднее атмосферное давление ', (s/7));
END.
Тег <link> с параметрами: rel, type, <span>href
Как пример:
</span><link<span> rel="stylesheet"</span><span> type="text/css"</span><span> href="mysite.css"</span><span>></span>
Информационный вес символьной информации: 60х40=2400 байтИнформационный вес изображения: 240х300x3=216000 бит (3 - количество бит, требуемое для кодирования 8 цветов: 2^3=8)216000 бит = 27000 байтОбщая сумма: 27000+2400=29400 байт
<em>uses crt;</em>
<em>var a, b, c, i, n:integer; </em>
<em>s :array [1..10000] of integer;</em>
<em>begin</em>
<em> clrscr;</em>
<em> writeln ('Введите размер массива, который надо сгенерировать');</em>
<em> read (n);</em>
<em> for i:=1 to n do </em>
<em> s[i]:=random(50);</em>
<em> for i:=1 to n do </em>
<em> writeln (i, ' элемент равен ', s[i]);</em>
<em> writeln ('Введите число, которое нужно найти');</em>
<em> read (a);</em>
<em> for i:=1 to n do</em>
<em> if s[i]=a then inc(b);</em>
<em> if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');</em>
<span><em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>