$ 26. Стандартные функции 1. Запишите несколько разных формул, с которых можно сложить значения ячеек А1, А2, А3, А4, и А5. Вариант 1: = Вариант 2: = Вариант 3: Вариант 4: = 2. Найдите в дополнительных источниках перевод английского слова sum на русский язык.

паскаль, одномерный массив

 

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

 

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

 

 

 

1) общее кол-во пикселей: 1024 * 768 = 786432 2) объем/вес одной картинки: 786432 * 16 = 12582912 бит 3) кол-во переданной информации за 1 секунду: 12582912 * 75 = 943718400 бит/с  = 12582912 / 8 / 1024 / 1024 мбайт/с = 112.5 мбайт/с