Program cikli;unit math;var i,n,s,p:integer; a:array[1..20]of integer;begin writeln('Исходный массив: '); for i:=1 to 20 do begin a[i]:=RandomRange(1,20); writeln(' Элемент ',i,' = ',a[i]); end; writeln('Сумму и произведения скольки первых чисел вы хотите посчитать? '); readln(n); s:=0;p:=1;//цикл с параметром For i:=1 to n do begin s:=s+a[i]; p:=p*a[i]; end;writeln('Цикл с параметром');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p); //цикл с предусловиемi:=1;p:=1;s:=0;while i<>n do begin s:=s+a[i]; p:=p*a[i]; i:=i+1;end;writeln('Цикл с предусловием');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p); //цикл с постусловиемi:=0;s:=0;p:=1;repeat i:=i+1; s:=s+a[i]; p:=p*a[i];until i=n;writeln('Цикл с постусловием');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p);<span>End.</span>
Const
n = 8;
var
a: array[1..n] of integer;
i, t, im, max: integer;
begin
Writeln('Введите через пробел ', n, ' чисел');
max := -32768;
for i := 1 to n do
begin
Read(t);
a[i] := t; t := (i + 1) * t;
if max < t then begin max := t; im := i end;
end;
Writeln('Максимальное значение ', max, ' достигается как ', im + 1, '*a[', im, ']')
end.
<u>Тестовое решение:</u>
Введите через пробел 8 чисел
4 -3 5 4 3 2 1 0
Максимальное значение 20 достигается как 4*a[3]
Ответ:
4 бита
Объяснение:
16*1024=16384(байт)-весь документ
16384/32=512(байт)-1 страница
512/16=32(байт)-1 строчка
32/64=0,5 байт=4(бита)-1 символ или мощность алфавита
Program lab;uses crt;
vari,a: integer;M: array [1 .. 30] of integer;
begin clrscr; // Очистка экрана randomize; // инициализирует рандом a:=0; // инициализирует аккумулятор for i:=1 to 30 do M[i] := random(1000); // заполняет массив рандомными числами for i:=1 to 30 do if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен 0... a := a + M[i]; // то добавить число к сумме // если аккумулятор больше 0, то вывести вывести его значение if a>0 then writeln('a = ',a) // иначе вывести "чисел нет" else writeln('чисел нет');end.
Потому что создается растровая графика фотоаппаратами, сканерами, непосредственно в растровом редакторе, также путем экспорта из векторного редактора или в виде скриншотов.