Var n,x,i,p,m,s:integer; begin writeln('Введите n: '); readln(n); for i:=1 to n do begin readln(x); if x<0 then m:=m+1; if x>0 then p:=p+1; if x>10 then s:=s+1; end; writeln('Положительных: ',p); writeln('Отрицательных: ',m); writeln('Больше 10: ',s); end.
Var a: array [1..10] of integer; pr, i, kol, sum: integer;begin sum := 0; pr := 1; for i := 1 to 10 do a[i] := -50 + random(100); for i := 1 to 10 do begin if (a[i] mod 2 = 1) or (a[i] mod 2 = -1) then // 1 sum := sum + a[i]; if (i mod 2 = 0) then // 2 pr := pr * a[i] else if (i mod 2 = 0) and (a[i] = 0) then pr := 0; end; for i := 1 to 10 do if (a[i] mod 10 = 0) then a[i] := 0; for i := 2 to 9 do // 3 begin if a[i] = 0 then if (a[i + 1] <> 0) and ((i + 1) mod 2 = 0) and (a[i - 1] <> 0) and ((i - 1) mod 2 = 0) then kol := kol + 1; end; writeln('сумму нечетных элементов =', ' ', sum); writeln('произведение элементов =', ' ', pr); writeln('число пар соседних элементов =', ' ', kol); end.
Объем изображения I=k*i*n , где k- количество точек, i- глубина цвета, n - количество слайдов Глубина цвета i=㏒₂N, где N-количество цветов палитры i=㏒₂256=8
I=1024*512*8*10/(8*1024*1024)= 5 Мбайт
Объем звука:
I= i*n*t, где i-глубина кодирования звука, n- частота дискретизации, t- время звучания.
I= 16*32000*40/(8*1024*1024)= 2,44 Мбайт
Общий объем презентации: 5 Мбайт+2,44 Мбайт= 7,44 Мбайт Еще добавляем 10 Кбайт служебной информации.
А объем флешки: 3 Гбайт= 3072 Мбайт Свободное место 10%= 307,2 Мбайт
begin
writeln('Введите n: ');
readln(n);
for i:=1 to n do
begin
readln(x);
if x<0 then m:=m+1;
if x>0 then p:=p+1;
if x>10 then s:=s+1;
end;
writeln('Положительных: ',p);
writeln('Отрицательных: ',m);
writeln('Больше 10: ',s);
end.