Составить программу которая создаёт массив случайных чисел, выводит его на экран и вычисляет сумму всех его элементов.

program jfe3;

const n=10; {это будет кол-во элементов массива}

var a: array [1..n] of integer; i,s: integer;

begin

for i: =1 to n do begin

                            a[i]: =random(100);     {элемент выбирается случайно от 0 до 100}

                            s: =s+a[i];   {когда эл. присвоился, его значение плюсуется к общ сумме}

                        end;

for i: =1 to n do

writeln(a[i],' ');     {показать сам массив}

writeln(s);   {показать сумму}

readln;   {чтобы окно сразу не закрывалось}

end.

 

если есть вопросы по программе, пиши в личку. если надо что-то еще - тоже =)

удачи)

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.

256= 2^i=2^8следовательно i=8 битов

8*80*32=20480 битов

20480*2=40960 битов=5120 байт=5 килобайт

 

^ - это я так обозначила степень

i - количество информации(обычно обозначается большой буквой)

* - умножить